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PREFACE 


The  Integrated  Graphics  System  (IGS)  Is  a  machine-  and 
device-independent  graphics  system  developed  at  The  RAND 
Corporation.  This  Memorandum  describes  the  IBM  2250  version 
of  this  system,  which  supports  the  RAND  Tablet  as  an  optional 
Input  device.  IGS  runs  under  Operating  System  360  ( OS / 360 ) 
and  permits  the  on-line  user  to  interact  with  an  IBM  360 
computer  through  the  2250  graphic  display  console. 
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SUMMARY 

This  Memorandum  describes  the  Integrated  Graphics 
System  (IGS)  used  at  The  RAND  Corporation  on  an  IBM  360 
computer  to  support  an  IBM  2250  graphic  display  console 
and  RAND  Tablet.  IGS  runs  under  Operating  System  360. 
Graphic  applications  may  be  programmed  In  a  wide  variety 
of  languages,  Including  FORTRAN,  PL/I,  SIMSCRIPT  1.5, 
and  assembly  language. 

IGS  Is  currently  used  with  an  IBM  2250.  However,  since 
IGS  Is  Independent  (.f  Its  specific  hardware  considerations, 
the  system  can  easily  be  adapted  to  other  graphic  devices. 

IGS  Is  composed  of  subroutines  that  draw  lines  and 
circles,  plot  points,  and  display  characters  and  numeric 
data.  Subroutines  are  also  provided  to  draw,  label,  and 
title  graphs;  manipulate  displays;  and  request  Input  from 
a  graphic  Input  device.  IGS  Is  specifically  designed  to 
be  Interactive,  allowing  the  user  to  communicate  directly 
with  the  computer  and  with  his  program  In  the  computer 
through  the  IBM  2250  graphic  display  console  and  the  RAND 
Tablet. 
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I.  INTRODUCTION 


This  Memorandum  describes  the  Integrated  Graphics 
System  (IGS)  currently  used  at  The  RAND  Corporation.  The 
system  now  supports  a  single  Model  1  IBM  2250  display  unit 
running  on  a  360  Model  40,  but  could  easily  be  expanded  to 
handle  multiple  2250s.  The  RAND  Tablet  [1]  Is  an  optional 
Input  device.  The  system  uses  basic  programming  support 
for  the  2250  In  the  OS/ 360  operating  system. 

IGS  consists  of  subroutines  called  by  the  user  to  per¬ 
form  such  graphic  functions  as  creating,  deleting,  moving, 
or  replacing  displays  or  parts  of  displays,  and  requesting 
Input  from  a  graphic  Input  device.  The  user  may  code  In 
a  variety  of  languages--F0RTRAN ,  PL/I,  assembly  language, 
SIMSCRIPT  1.5,  or  any  other  language  with  standard  0S/360 
linkages.  IGS  relieves  the  user  from  the  Intricate, 
specific  hardware  considerations  of  the  2250,  allowing  him 
to  concentrate  on  his  displays. 

IGS  Is  specifically  designed  to  be  Interactive,  allow¬ 
ing  the  user  to  communicate  directly  with  the  computer  and 
with  his  program  In  the  computer  through  the  IBM  2250  graphic 
display  console  and  the  RAND  Tablet. 
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II.  THE  GRAPHICS  SYSTEM  HARDWARE 
THE  360  MODEL  40 

I6S  currently  runs  on  a  256,000-byte  360  Model  40.  In 
360  terminology,  memory  size  Is  given  In  terms  of  bytes  and 
not  words,  with  8  bits  per  byte,  and  4  bytes  per  word.  The 
machine  now  operates  with  version  14  of  0S/360,  which 
occupies  20,512  bytes  or  5128  words  of  core. 

Along  with  the  basic  360/40,  the  system  Includes  one 
card  reader  and  punch,  one  printer,  two  2260  display  units, 
one  Model  1  2250,  four  2311  disk  drives,  one  1052  console 
typewriter,  one  RAND  Tablet,  one  2701  data  channel  for  the 
RAND  Tablet,  and  limited  access  to  one  7-track  and  one 
9-track  tape  normally  part  of  the  360/30. 

IGS  will  run  on  any  I8M  360  computer  large  enough  to 
support  0S/360 .  The  2701  data  channel  Is  necessary  only 
If  the  RAND  Tablet  Is  Included  as  an  Input  device.  IGS 
will  operate  without  the  RAND  Tablet. 

THE  2250  DISPLAY  UNIT 

The  2250  display  unit  consists  of  a  cathode  ray  tube 
(CRT)  on  which  Images  are  displayed  under  programmed  con¬ 
trol,  and  input  devices  (a  light  pen,  an  alphameric  key¬ 
board,  and  a  programmed-functl on  keyboard)  for  entering 
data  from  the  2250  console  Into  the  computer.  The  2250 
generates  displays  from  Its  own  external  buffer  requiring 
no  computer  time  or  core  storage.  Displays  are  created 
when  the  graphics  system  moves  certain  bit  configurations 
representing  graphic  commands  into  the  external  buffer. 

The  2250  buffer  Is  analogous  to  a  small  computer,  with 
the  graphic  commands  In  the  buffer  representing  the  computer 
instructions.  The  2250  graphic  commands  direct  a  small 
beam  of  light  across  the  screen,  drawing  the  picture.  The 
beam  may  be  either  on  (unblanked)  or  off  (blanked)  while  it 
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1s  being  moved.  However,  Images  appear  only  If  the  beam 
Is  moved  In  the  unblanked  mode.  Because  the  Images  fade 
rapidly,  a  steady  and  stationary  display  requires  constant 
Image  regeneration.  This  Is  accomplished  by  repeating  the 
execution  of  the  orders  and  data  In  the  2250  buffer  thirty 
to  forty  times  per  second.  The  actual  regeneration  rate 
Is  a  function  of  the  amount  of  data  displayed.  Excessive 
data  will  cause  the  screen  to  flicker  because  regeneration 
Is  not  fast  enough  to  preserve  the  Image. 

The  character  generator,  a  special  hardware  feature 
In  the  2250,  directs  the  beam  to  draw  characters.  Decoding 
these  Instructions  In  the  buffer  makes  the  2250  considerably 
more  complex  (and  more  expensive)  than  a  TV  set.  The  2250 
buffer  operates  Independently  of  the  main  360  computer. 

The  360  computer  can  only  start  or  stop  the  buffer  and 
read  or  write  Into  It. 

The  user  need  not  concern  himself  with  the  2250  buffer, 
since  IGS  generates  all  the  2250  graphic  commands  needed 
and  reads  or  writes  the  buffer  as  needed. 

The  usable  portion  of  the  CRT  screen  (12  *  12  In.)  Is 
defined  by  a  matrix  (1024,1024)  of  addressable  point  posi¬ 
tions.  However,  the  points  are  actually  addressed  from  0 
to  4095,  with  every  fourth  point  being  addressable.  The 
distance  between  any  two  addressable  points  (In  either  the 
x  or  y  direction)  on  the  display  area  of  the  CRT  Is  defined 
as  a  raster  unit. 

The  origin  (coordinate  0,0)  begins  at  the  lower  left 
corner  of  the  screen,  then  extends  horizontally  to  the  right 
In  the  x-dlrectlon  and  vertically  In  the  y-directlon,  so 
that  the  coordinates  (4095,4095)  at  the  top  right  corner 
represent  the  maximum  boundary  of  the  screen. 

Alphameric  characters  may  be  created  by  using  the 
character  generator  or  by  drawing  the  desired  characters 
with  a  series  of  lines.  The  character  generator  produces 
characters  of  two  sizes  (normal  and  one-and-one-half  times 
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normal)  and  of  one  orientation  (vertical).  The  center  of 
a  character  Is  Its  x,y  location.  Figure  1  Illustrates  the 
details  of  character  dimensions.  Appendix  C  (p.  118)  de¬ 
scribes  the  available  characters  and  their  sizes. 

The  2250  scope  produces  three  basic  types  of  displays: 
vectors,  points,  and  characters.  Vectors  may  be  drawn  be¬ 
tween  any  two  addressable  points  on  the  2250  screen.  Points 
and  characters  may  appear  at  any  addressable  point  on  the 
screen. 

The  2250  displays  two  types  of  characters--protected 
and  unprotected.  The  user  may  replace  unprotected  charac¬ 
ters  by  typing  over  them  with  the  alphameric  keyboard  or 
writing  over  them  with  the  RAND  Tablet  pen;  protected  char¬ 
acters  are  Inalterable.  Two  corresponding  types  of  vectors 
or  points  have  been  defined  for  IGS:  protected  vectors  and 
points,  which  cannot  be  moved  on  the  scope;  unprotected 
vectors  and  points,  which  can  be  moved  around  by  special 
subroutines . 

The  2250  buffer  size  Is  8192  bytes.  An  x,y  coordinate 
occupies  four  bytes,  a  character  one  byte,  and  a  delimiter 
Indicating  the  type  of  output  fills  two  bytes.  Reference  2 
gives  the  complete  details  of  the  2250  buffer  commands. 

The  2250  also  has  an  audio  alarm,  an  unpleasant  whistle. 

2250  INPUT  DEVICES 

The  2250  responds  to  three  types  of  graphic  Input  de¬ 
vices-^  light  pen,  an  alphameric  keyboard,  and  a  programmed- 
functlon  keyboard. 

The  light  pen  Is  a  pointing  device.  It  detects  the 
light  from  the  2250  beam  when  the  beam  enters  the  pen's 
field  of  vision.  The  user,  by  pointing  with  the  light  pen 
at  a  particular  display  and  then  pressing  a  foot  pedal.  In¬ 
terrupts  the  computer,  which  reads  In  the  x,y  coordinates 
of  the  display  as  well  as  their  location  In  the  buffer. 
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The  resolution  of  the  light  pen  is  poor  because  of  a 
parralax  effect  caused  by  the  thickness  of  the  glass  in  the 
2250  screen,  and  because  the  user's  hand  tends  to  obscure 
the  image  at  which  the  user  is  pointing.  The  light  pen  can 
detect  only  displayed  images;  blank  areas  on  the  screen  can 
not  be  detected. 

The  alphameric  keyboard,  a  typewriter-like  device, 
enters  information  directly  into  the  2250  buffer.  It  can 
type  over  only  unprotected  characters  after  a  cursor  has 
been  positioned  under  a  character.  The  cursor,  which 
specifies  the  location  of  the  next  typed  character,  appears 
on  the  scope  as  a  dash  under  that  character.  It  can  be  in¬ 
serted  only  by  software,  but  once  it  appears  on  the  screen, 
the  user  may  position  it  by  spacing  forward  or  backward,  or 
jumping  to  another  line.  The  cursor  jumps  from  line  to  line 
in  the  order  in  which  the  lines  were  originally  displayed. 

This  may  be  unrelated  to  their  order  on  the  screen. 

New  characters  can  be  typed  in  only  by  overstriking 
previously  displayed  characters  (which  may  be  blanks).  New 
characters  replace  the  old  characters  directly  in  the  2250 
buffer  without  computer  assistance.  Unfortunately,  this  means 
that  the  computer,  and  the  user's  program,  has  no  easy  way 
to  determine  what  or  where  characters  have  been  entered. 

Striking  the  END  or  CANCEL  key  on  the  alphameric  key¬ 
board  interrupts  the  computer.  The  user's  program  then 
determines  which  key  was  struck.  The  labels  END  or  CANCEL 
on  the  keys  have  no  inherent  meaning;  both  keys  interrupt 
the  computer  when  struck. 

The  programmed-functi on  keyboard  is  a  separate  box  con¬ 
taining  32  keys,  numbered  1  through  32.  When  a  function  key 
is  struck,  the  computer  is  interrupted  and  notified  of  which 
key  was  struck.  An  overlay  may  be  placed  over  the  keys  to 
indicate  their  function.  The  user  may  detect  both  which 
overlay  is  in  place  and  which  key  was  touched.  Selected 
function  keys  may  also  be  lit  up.  However,  lighting  up  the 
keys  neither  locks  nor  unlocks  them;  it  simply  illuminates 
them . 
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THE  RAND  TABLET 

The  RAND  Tablet  may  be  used  as  a  pointing  device  similar 
to  the  light  pen,  as  a  tracing  device  to  input  a  series  of 
points,  as  a  character- i  nput  device  similar  to  the  alphameric 
keyboard,  or  as  drawing  device  to  input  such  geometric 
figures  as  rectangles  and  circles. 

The  RAND  Tablet  consists  of  a  pen-like  stylus  and  a 
special,  flat,  horizontal  surface  located  in  front  of  the 
vertical  2250  screen.  The  10-in. -sq  surface  or  Tablet  is 
a  photoetched  grid  of  1024  lines  with  a  resolution  of  one 
hundredth  of  an  inch  in  both  the  x  and  y  directions. 

Pressing  the  pen  on  the  Tablet  closes  a  pressure- sens i ti ve 
switch  in  its  tip,  thereby  inputting  its  x,y  coordinates. 

The  user  writes  on  the  Tablet,  but  views  his  writing  on  the 
2250  screen.  A  small  point  displayed  on  the  screen  shows 
the  pen's  position  relative  to  the  Tablet  surface.  The 
user  quickly  adjusts  to  this  disjointed  method  of  writing. 

Special  subroutines  are  provided  to  recognize  charac¬ 
ters  handwritten  on  the  Tablet  [3,4].  When  the  user  writes 
a  character,  "ink"  in  the  form  of  short  vectors  follows 
the  track  of  his  pen.  When  he  raises  his  pen,  these  routines 
attempt  to  recognize  the  handwritten  character,  then  erase 
the  "ink"  and  replace  the  handwritten  character  with  the 
2250-generated  character. 

HARDCOPY  FROM  THE  2250 

Sizes  8  1/2  x  11  and  11  x  14  hardcopy  for  all  2250  IGS 
programs  are  obtained  by  reading  the  2250  buffer  into 
the  360  core,  converting  it  into  a  form  acceptable  to  the 
S-C  4060  [5],  writing  it  onto  disk  and  later  onto  tape, 
then  processing  the  tape  on  the  S-C  4060.  The  S-C  4060  is 
a  high-quality  graphic  display  device  capable  of  producing 
film  or  hardcopy  output.  Appendix  I  (p.  131)  describes  the 
method  for  obtaining  hardcopy.  The  S-C  4060  is  necessary 
only  if  hardcopy  is  desired. 
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III.  DESCRIPTION  OF  THE  GRAPHICS  SYSTEM 


The  graphics  system  consists  of  subroutines  that  draw 
lines,  plot  points,  display  characters,  manipulate  displays, 
and  request  Input  from  a  graphic  device.  These  superficially 
simple  functions  are  actually  complex  because  of  the  many 
possible  variations.  For  example,  characters  can  be  pro¬ 
tected  or  unprotected,  basic  or  large  size.  Mode  sets  allow 
the  user  to  execute  such  simple  actions  as  displaying  char¬ 
acters  without  becoming  confused  by  all  the  variations 
possible. 

HOPE  SETS 

Parameters  are  passed  to  IGS  subroutines  In  two  ways: 
as  arguments  In  the  subroutine  calls  and  as  values  stored 
In  the  mode  eet  array.  The  mode  set  array  Is  defined  as  a 
200-word,  single-dimensioned,  real  array  In  the  user's 
program  and  must  appear  as  an  argument  In  each  call  to  an 
IGS  subroutine.  Default  values  are  stored  In  this  array 
when  the  system  Is  Initialized. 

Those  parameters  that  change  with  each  call  are  In¬ 
cluded  as  arguments  In  the  subroutine  calls;  all  others  are 
held  In  the  mode  set  array.  Limiting  the  number  of  argu¬ 
ments  necessary  In  the  subroutine  calls  facilitates  their 
use. 

For  example,  to  display  characters,  the  user  need 
specify  only  the  characters  themselves,  the  x,y  location 
of  the  first  character,  and  the  number  of  characters.  How¬ 
ever,  the  mode  set  array  automatically  provides  many  other 
default  parameters--character  size,  line  spacing,  margins, 
line  orientation,  etc.  The  user  alters  such  values  by 
calling  subroutine  SETSMG  to  store  a  new  value  In  the  array. 
These  alterations  will  remain  In  effect  until  the  user 
changes  them  again. 
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SUBJECT  AND  OBJECT  SPACE 

IGS  automatically  scales  from  user  coordinates  to 
absolute  rasters.  (If  the  user  wishes  to  address  absolute 
rasters  himself,  he  can  order  the  system  to  do  no  conver¬ 
sion.)  The  user  must  specify  two  Items  of  Information  be¬ 
fore  the  system  can  set  up  scaling  factors.  The  first  Item 
Is  the  size  of  the  user's  subject  apace,  l.e.,  the  coordi¬ 
nate  system  that  bounds  his  data.  The  system  will  assume 
It  to  be  the  same  as  the  raster  size  of  the  display  surface, 
4096.0  x  4096.0,  unless  otherwise  Informed  through  a  call 
to  subroutine  SUBJEG. 

Subject  space  Is  useful  In  both  plottl ng--where  the 
data's  physical  units  may  not  correspond  to  the  raster  ad¬ 
dress  of  the  2250--and  textual  displays.  For  example,  by 
letting  the  x-axIs  range  from  1  to  72  (the  number  of  normal¬ 
sized  characters  per  line)  and  the  y-axls  range  from  1  to 
52  (the  number  of  lines  per  page),  lines  and  character  posi¬ 
tions  may  be  addressed  directly,  as  on  a  typewriter. 

The  second  Item  Is  the  object  apace,  l.e.,  the  portion 
of  physical  display  surface  used.  It  Is  expressed  In 
"normalized"  units  to  differentiate  It  from  raster  units. 

A  value  of  1 . C'  Is  the  smallest  dimension  of  the  display 
surface  In  either  the  x  or  y  axis.  For  the  2250,  this  Is 
4096  raster  units.  The  system  will  assume  It  to  be  the 
full  display  surface  size,  1.0  x  1.0,  unless  otherwise  In¬ 
formed  through  a  call  to  subroutine  0BJCTG.  The  ability 
to  subdivide  the  display  surface  enables  the  user  to  put  a 
margin  around  his  picture,  or  to  display  multiple  pictures 
slmul taneously . 

When  an  x  or  y  coordinate  Is  scaled  Into  an  area  out¬ 
side  the  physical  screen,  an  error  message  Is  printed.  The 
coordinate  Is  set  to  zero.  If  It  Is  below  or  to  the  left  of 
the  screen,  and  to  4095  If  above  or  to  the  right. 

Figure  2  Illustrates  the  distinction  between  subject 
and  object  space. 


-10- 


Fig.  2--Subject  and  Object  Space 


SUBROUTINE-NAMING  AND  -CODING  CONVENTIONS 


The  following  conventions  have  been  adopted  for  the 
design  and  coding  of  IGS. 

1)  All  general  graphic  subroutine  names  end  with  a  G. 

2)  All  system  subroutine  names  not  of  general  Interest 
end  with  ZZ. 

3)  All  function  names  end  with  a  Z. 

4)  The  first  argument  of  each  call  to  a  graphic  sub¬ 
routine  must  be  the  mode  set  array  defined  In  the 
user's  program. 

5)  All  variables  In  the  mode  set  array  are  real. 

6)  Coordinate  values  In  the  calls  to  graphic  sub¬ 
routines  are  real. 

7)  Variable-length  calls  are  not  used  unless  one  of 
the  arguments  contains  the  number  of  arguments  In 
the  call . 

8)  The  subroutines  are  coded  In  Level-G  FORTRAN  where 
possible. 

9)  0S/360  Is  net  modified. 

THE  STRUCTURE  OF  THE  GRAPHICS  SYSTEM 

IGS  Is  composed  of  several  classes  of  subroutines: 
housekeeping,  graphic  output,  graph,  display  manipulation, 
graphic  Input,  program  control,  and  miscellaneous. 

Housekeeping  Subroutines 

The  user  starts  the  graphics  system  with  a  call  to 
MODESG,  and  stops  It  with  a  call  to  EXITG.  After  starting 
the  system,  he  may  call  SUBJEG  to  tell  It  what  units  his 
data  will  occupy;  the  system  will  then  calculate  the  scaling 
factors  needed.  He  may  also  call  OBJCTG  to  specify  the 

I 
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portion  of  the  2250  screen  he  wants  to  use.  This  enables 
him  to  subdivide  the  screen  so  he  has,  In  effect,  more 
than  one  scope  In  front  of  him.  Both  calls  are  optional. 
SETSMG  and  GETSNG  set  and  retrieve  mode  set  values,  re¬ 
spectively.  RSETNG  sets  all  modes  to  their  default  values. 

The  user  must  call  GETIDG  to  ask  the  system  for  a 
number  to  Identify  displays  before  creating  them.  The 
system  classifies  all  subsequent  graphic  output  under  this 
TO  until  another  ID  Is  requested.  An  ID  usually  Identifies 
a  complete  display  (containing  characters,  vectors,  or 
points)  but  may  also  designate  only  a  part  of  a  display 
(e.g.,  a  single  character).  The  ID  Identifies  the  group 
of  displays  to  be  treated  as  an  entity.  Display  organiza¬ 
tion  Is  left  up  to  the  user. 

Graphic  Output  Subroutines 

Graphic  output  subroutines  display  lines  (LINESG, 
SEGMTG) j  characters  (LEGNDG,  TEXTG) ;  circles  (CIRARG); 
points  (POINTG);  numbers  (NUHBRG)  In  I,  E,  or  F  format; 
and  multiple  line  segments  (NLTPLG)  for  drawing  grids  or 
crosshatching. 

Graph  Subroutines 

Subroutines  draw  (GRIDG),  label  (LABELG),  and  title 
(TITLEG)  grids.  GRAPHG  plots  an  entire  graph,  complete 
with  grid,  labels,  titles,  and  data.  An  additional  sub¬ 
routine  (SETUPG)  computes  aesthetically  pleasing  grid  and 
label  parameters  for  GRIDG  and  LABELG. 

Graphic  Manipulation  Subroutines 

The  user  may  call  subroutines  to  manipulate  his  dis¬ 
plays.  DISPLG  causes  displays  to  disappear  or  reappear  on 
the  2250  screen,  or  deletes  them.  Deleting  a  display  not 
only  causes  It  to  disappear,  but  also  releases  all  storage 
associated  with  that  display. 
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The  system  allows  the  manipulation  of  the  Individual 
components  of  the  displays,  as  well  as  the  whole  display. 

A  user  can  retrieve  or  change  any  character  within  a  dis¬ 
play  by  calling  GPCHRG,  and  retrieve,  change,  or  move  any 
x,y  coordinate  by  calling  GPXYG.  Only  unprotected  x,y  co¬ 
ordinates  can  be  manipulated  Individually;  protected  x,y 
coordinates  can  not.  This  distinction  saves  core  storage, 
because  the  unprotected  x,y  coordinates  must  be  stored  in 
ma<n  computer  core  to  enable  graphic  manipulations  fast 
enough  to  prevent  flicker,  while  the  unmanipulated  pro¬ 
tected  coordinates  need  not  be  stored.  A  mode  set  call 
specifies  protected  or  unprotected  displays. 

The  user  refers  to  characters  and  x,y  coordinates 
within  a  display  by  a  number  corresponding  to  their  order 
of  creation.  For  example,  he  might  ask  for  three  charac¬ 
ters  from  a  display,  starting  at  the  seventh  character,  or 
he  might  order  six  x ,y  coordinates,  starting  with  the 
second,  to  be  moved  a  certain  distance. 

Graphic  Input  Subroutines 

The  graphic  Input  subroutines  allow  the  user  to  enter 
data  and  control  the  operation  of  his  program  from  the  2250 
console.  Subroutine  GSTATG  checks  the  status  of  a  specified 
graphic  Input  device.  Subroutine  WAITSG  suspends  program 
operation  until  the  user  Initiates  some  activity  at  the 
console.  When  the  status  of  a  2250  Input  device  Is  checked, 
one  Is  essentially  asking  If  that  device  has  been  used  since 
the  last  time  It  was  checked.  Waiting  for  Input  from  a 
graphic  device  suspends  all  activity  In  the  user's  program 
until  some  action  Is  Initiated  from  the  console. 

When  return  Is  made  from  GSTATG  or  WAITSG,  the  user  Is 
told  which  device  was  used,  whether  the  end  or  cancel  key 
was  hit,  which  programmable-function  key  was  hit,  which 
overlay  was  In  place,  the  x,y  location  of  the  pen  and 
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which  display,  if  any,  it  touched,  or  whether  the  RAND 
Tablet  pen  is  up  or  down. 

IGS  does  not  permit  the  user's  program  to  get  control 
directly  from  an  asynchronous  interrupt  caused  by  a  graphic 
input  device.  Instead,  the  program  may  check  the  status  of 
the  graphic  input  devices  at  appropriate  places,  or  specifi¬ 
cally  await  some  graphic  input. 

CHARG  recognizes  characters  handwritten  with  the  RAND 
Tablet  and  flags  the  ID  of  the  appropriate  display  as 
having  a  character  changed.  CHARG  permits  only  unprotected 
characters  to  be  overwritten. 

A  higher-level  graphic  input  subroutine  (DATAG)  allows 
the  user  to  enter  numeric  data  directly  from  the  2250  con¬ 
sole  with  either  the  keyboard  or  the  RAND  Tablet.  The  user 
calls  DATAG  to  pass  over  a  list  of  variables  to  be  changed. 
For  each  variable,  he  must  give  an  alphameric  name  so  it 
can  be  identified  on  the  screen,  the  format  of  the  variable 
(I,  F,  E,  or  A  format),  and  the  variable  itself.  DATAG 
then  displays  the  current  value  of  each  listed  variable  on 
the  2250  screen  beside  the  name,  so  the  user  may  examine 
and  alter  the  values.  Striking  the  END  key  causes  DATAG 
to  erase  the  display  and  return. 

RECOG  recognizes  geometric  figures  hand-drawn  with 
the  RAND  Tablet.  When  the  geometric  figure  is  recognized, 
RECOG  erases  the  hand-drawn  figure  and  replaces  it  with 
an  exact  geometric  figure. 

Program  Control  Subroutines 

Program  control  subroutines  enable  the  user  to  control 
his  program  from  the  console.  Subroutines  BUTTNG  and  AREASG 
define  sensitive  character  strings  and  areas  on  the  2250 
screen.  Subroutine  PUSHG  permits  the  user's  program  to 
detect  when  these  character  strings  or  areas  are  touched. 
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The  sensitive  character  strings  and  areas  are  actually 
user-defined  buttons.  The  user  may  build  and  label  several 
buttons,  then  write  his  program  to  respond  to  a  touch  on  a 
bu  tton . 

BUTTNG  displays  any  number  of  sensitized  character 
strings  at  any  place  on  the  screen.  AREASG  defines  any 
number  of  sensitized  areas  on  the  screen.  An  area  may 
optionally  have  lines  drawn  around  it  to  make  it  visible. 

Subroutine  PUSHG  detects  a  button  touch  by  either  the 
light  pen  or  RAND  Tablet  stylus.  PUSHG  displays  a  double 
asterisk  beside  a  touched  button  to  notify  the  user  that 
it  recognizes  and  has  executed  his  request. 


IV.  DESCRIPTION  OF  THE  GRAPHIC  SUBROUTINES 


BRIEF  LIST  OF  GRAPHIC  SUBROUTINES 

The  following  subroutines  constitute  the  graphics 
system.  A  complete  description  of  each  subroutine  follows 
this  outline. 


Housekeeping  Subroutines 


a)  MODESG 


b)  GE'.IDG 


c)  SUBJEG 


d)  OBJCTG 


Initializes  the  graphics  system.  (This 
Is  the  first  graphic  subroutine  call.) 
(p.  21.) 

Provides  a  number  to  identify  a  display 
(p.  22). 

Sets  up  the  user's  coordinate  system 
(subject  space)  (p.  2.1). 

Sets  up  the  portion  of  the  2250  screen 
to  be  used  (object  space)  (pp.  24-25). 


e)  SETSMG  Stores  a  value  In  the  mode  set  array  (p.  26). 


f)  GETSMG 


g)  RSETMG 


h)  EXITG 


Retrieves  a  value  from  the  mode  set  array 
(p.  27). 

Resets  all  modes  to  their  default  values 
(p.  28). 

Terminates  IGS.  (This  Is  the  last  call 
to  the  graphics  system.)  (p.  29.) 


Graphic  Output  Subroutines 

a)  CIRARG  Draws  circles  or  arcs  (pp.  31-32). 

b)  LEGNDG  Displays  characters  or  text  at  a  given 

x,y  location  (pp.  33-35). 

c)  LINESG  Draws  joined  lines  (pp.  36-37). 


d)  MLTPLG  Draws  multiple  line  segments  (pp.  38-39) 
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e) 

f) 

g) 

h) 


NUMBRG  Displays  numeric  data  (pp.  40-42). 

POINTG  Plots  symbols  or  points  (pp.  43-44). 

SEGMTG  Draws  noncontiguous  line  segments  (p,  45). 

TEXTG  Displays  characters  or  text  from  current 
point  (p.  46) . 
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Graph  Subroutines 


a) 

GRIDG 

Draws  a  grid  (pp.  48-51 ) . 

b) 

LABELG 

Labels  a  grid  (PP.  52-57). 

c) 

TITLEG 

Titles  a  grid  (pp.  58-61 ) . 

d) 

SETUPG 

Confutes  aesthetically  P1eas1ng  grid  and 
label  parameters  (pp.  62-64). 

e) 

GRAPHG 

Draws,  labels,  and  titles  a  complete 
graph  (pp.  65-66). 

4)  Graphic  Manipulation  Subroutines 

a)  DISPLG  Deletes,  turns  on,  or  turns  off  dis¬ 

plays  (p.  68) . 

b)  GPCHRG  Retrieves  or  replaces  characters  In  a 

display  (pp.  69-70). 

c)  GPXYG  Retrieves,  replaces,  or  moves  x,y  co¬ 

ordinates  within  a  display  (pp.  71-72). 


5)  Graphic  Input  Subroutines 

a)  GSTATG  Checks  the  status  of  a  graphic  device 

(pp.  74-76). 

b)  WAITSG  Walts  for  graphic  Input  (pp.  77-79). 

c)  CHARG  Inputs  characters  with  the  RAND  Tablet 

(pp.  80-81). 


d)  DATAG  Inputs  data  from  the  2250  console 
(pp.  82-84). 
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e)  RECOG  Recognizes  geometric  figures  hand-drawn 
with  the  RAND  Tablet  (pp.  85-86). 

6)  Program  Control  Subroutines 

a)  AREASG  Defines  a  sensitive  area  (pp.  88-89). 

b)  BUTTNG  Defines  and  displays  buttons  (pp.  90-91). 

c)  PUSHG  Determines  if  a  sensitive  area  or  button 

has  been  touched  (p.  92). 


7)  Miscellaneous 

a)  ALARMG 

b)  CHANG 

c)  CONVTG 

d)  CURSRG 

e)  DEBUG 

f)  FMTSG 

g)  GTIMEG 

h)  SETFKG 

i)  SNAPG 

j)  WTIMEG 


Subroutines 

Sounds  the  2250  audio  alarm  (p.  94). 

Determines  which  displays  the  RAND  Tablet 
changed  (p.  95). 

Converts  characters  to  numeric  (p.  96). 

Controls  the  2250  cursor  (pp.  97-98). 

Displays  selected  variables  on  the  2250 
screen  (p.  99). 

Converts  numeric  data  to  characters  (p.  100) 

Determines  the  current  time  and  day  (p.  ioi) 

Controls  the  2250  function  key  lights 
(pp.  102-103). 

Provides  2250  hardcopy  (p.  104). 

Waits  a  specified  length  of  time  (p.  105). 


FORMAT  OF  GRAPHIC  SUBROUTINE  WRITE-UPS 

The  graphic  subroutine  descriptions  conform  to  the 
fol 1  owing  format : 
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PURPOSE 

Purpose  of  the  subroutine. 


USAGE 


Standard  Calls 

Details  of  the  subroutine  calling  sequence.  FORTRAN 
notation  indicates  integer  or  real  arguments.  Arguments 
beginning  with  A  through  H  or  0  through  Z  are  real;  those 
beginning  with  I  through  N  are  integer. 

Underscoring  an  argument  designates  it  as  an  input 
value  to  the  called  subroutine.  The  argument  may  be  either 
a  constant  or  a  variable.  Overscoring  an  argument  desig¬ 
nates  it  as  an  output  variable  returned  from  the  called 
subroutine.  The  argument  must  be  a  variable.  A  line  both 
above  and  below  an  argument  indicates  that  the  argument 
is  both  an  input  and  an  output.  It  must  be  a  variable. 

For  example, 

CALL  SUBR(AJZ) 

1)  A  will  contain  an  input  value  for  SUBR. 

2)  B  will  return  with  a  value  from  SUBR. 

3)  C  will  contain  an  Input  value  for  SUBR,  and 
will  return  with  a  value  from  SUBR. 

Special  Calls 

Special  calls  to  the  subroutine. 

Modi ficatl ons 

Modifications  of  the  subroutine  through  mode  sets. 

MISCELLANEOUS  INFORMATION 

Language  in  which  the  subroutine  is  coded  and  any 
additional  information  not  covered  above. 
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HOUSEKEEPING  SUBROUTINES 

This  section  briefly  describes  the  housekeeping  sub¬ 
routines.  The  arguments  In  the  calling  sequences  are  de¬ 
tailed  In  the  Individual  subroutine  descriptions. 

C  THE  USER  FIRST  DIMENSIONS  THE  MODE  SET  ARRAY  AND 
C  INITIALIZES  THE  SYSTEM  BY  CALLING  MODESG  BEFORE 
C  REQUESTING  GRAPHIC  OUTPUT.  MODESG  SETS  ALL  DEFAULT 
C  VALUES  IN  THE  MODE  SET  ARRAY  AND  OPENS  THE  OUTPUT 
C  FILES.  THE  MODE  SET  ARRAY  MUST  BE  200  WORDS  LONG. 
DIMENSION  Z  (200) 

CALL  MODESG  (Z,  0) 

C  HE  MAY  THEN  OPTIONALLY  CHANGE  THE  COORDINATE  SYSTEM 
C  BY  CALLING  SUBJEG  TO  CHANGE  THE  SUBJECT  SPACE,  OR 

C  OBJCTG  TO  CHANGE  THE  OBJECT  SPACE. 

CALL  SUBJEG  (Z,  XMIN,  YMIN,  XMAX,  YMAX) 

CALL  OBJCTG  (Z,  XMIN,  YMIN,  XMAX,  YMAX) 

C  SETSMG  MAY  BE  CALLED  TO  CHANGE  THE  DEFAULT  MODE  SET 
C  VALUES. 

CALL  SETSMG  (Z,  NO,  VALUE) 

C  GETIDG  MUST  BE  CALLED  BEFORE  ANY  DISPLAYS  ARE  CREATED. 

C  GETIDG  ASSIGNS  A  NUMBER  TO  IDENTIFY  THE  DISPLAYS 

C  THAT  FOLLOW. 

CALL  GETIDG  (Z,  ID) 

C  THE  USER  IS  NOW  READY  TO  CREATE  DISPLAYS.  TO  RESET 

C  THE  MODE  SET  ARRAY  TO  ITS  DEFAULT  VALUES,  HE  MAY 

C  MAKE  EITHER  INDIVIDUAL  CALLS  TO  SETSMG  OR  A  SINGLE 
C  CALL  TO  RSETMG . 

CALL  RSETMG  (Z) 

C  GETSMG  RETRIEVES  MODE  SET  VALUES. 

CALL  GETSMG  (Z,  NO,  VALUE) 

C  EXITG  TURNS  OFF  THE  2250.  IT  MUST  BE  CALLED  BEFORE 
C  THE  JOB  IS  TERMINATED. 

CALL  EXITG  (Z) 

C  THE  USER  TERMINATES  HIS  PROGRAM  IN  THE  NORMAL  MANNER. 

CALL  EXIT 
END 
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MODESG :  Initializes  the  System 


PURPOSE 

Initializes  the  graphics  system,  opens  files,  and 
sets  all  default  values  In  the  mode  set  array.  It  must 
be  the  first  graphic  subroutine  called. 

USAGE 


Standard  Calls 

CALL  MODESG(? . I  DEV  1 

1)  Z  must  be  a  200-word  array  defined  In  the  user's 
program.  All  mode  sets  and  system  communica¬ 
tion  pointers  are  stored  In  this  array. 


IDEV 

sped  f  1  es 

the 

devices 

to  turn  on. 

If 

IDEV  =  0, 

turn 

on 

the 

2250 

only. 

-  1. 

turn 

on 

the 

2250 

and  the  Tablet. 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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GETIDG:  Assigns  an  ID  and  Defines  a  Display 


PURPOSE 

Defines  the  beginning  of  a  new  display,  and  returns 
a  number  uniquely  Identifying  the  display.  All  displays 
generated  subsequent  to  this  call,  until  terminated  by 
another  call  to  GETIDG,  will  be  regarded  as  one  logical 
display. 

The  first  ID  returned  is  a  two.  Each  subsequent  call 
returns  an  integer  number  one  larger  than  the  last.  GETIDG 
must  be  called  at  least  once  before  any  displays  are  created. 

USAGE 


Standard  Calls 

CALL  GETIDG(I.Td) 

1)  Z  is  the  mode  set  array. 

2)  ID  will  contain  the  integer  ID  of  the  display 

on  return.  Each  ID  assigned  will  be  one  greater 
than  the  previous. 

MISCELLANEOUS  INFORMATION 


Written  in  0S/360  assembly  language. 
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SUBJEG:  Sets  Up  Subject  Space 


PURPOSE 

Establishes  the  limits  of  the  user's  coordinate  system 
(subject  space),  then  calculates  the  scale  factors. 

USAGE 


Standard  Calls 

CALL  SUBJEG(7. XMIN. YM IN. XMAX. YMAX) 

1)  Z  is  the  mode  set  array. 

2)  XMIN  is  the  minimum  x-coordinate  of  the  user's 
data . 

3)  YMI N  is  the  minimum  y-coordinate  of  the  user's 
data . 

4)  XMAX  is  the  maximum  x-coordinate  of  the  user's 
data . 

5)  YMAX  is  the  maximum  y-coordinate  of  the  user's 
data . 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  XMIN,  YMI N ,  XMAX,  and  YMAX 
specify  the  boundaries  of  the  user's  data.  XMIN  and  YMI N 
are  not  necessarily  less  than  XMAX  or  YMAX.  However,  XMIN 
must  not  equal  XMAX,  or  YMIN  equal  YMAX.  SUBJEG  recomputes 
the  page  margins  so  their  relative  positions  in  the  new 
subject  space  are  the  same  as  in  the  old. 
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OBJCTG:  Sets  Up  Object  Space 


PURPOSE 

Establishes  the  size  of  the  display  scope  (tjject 
space),  then  calculates  the  scale  factors. 

USAGE 

Standard  Calls 

CALL  OBJCTGf7.XMIN.YMIN.XMAX.YMAX) 

1)  Z  Is  the  mode  set  array. 

2)  XMIN  Is  the  minimum  x-coordlnate  of  the  screen 
In  normalized  object  space. 

3)  YMIN  Is  the  minimum  y-coordlnate  of  the  screen 
In  normalized  object  space. 

4)  XMAX  Is  the  maximum  x-coordlnate  of  the  screen 
In  normalized  object  space. 

5)  YMAX  Is  the  maximum  y-coordlnate  of  the  screen 
In  normalized  object  space. 


Special  Calls 

Two  functions  are  provided  to  convert  subject  space 
coordinates  Into  normalized  object  space. 

1)  To  convert  x-axIs  subject  space  to  normalized 
object  space,  use  the  following  function: 

x  normalized  object  space  *  XN0RMZ(J,X,) 

2)  To  convert  y-axls  subject  space  to  normalized 
object  space,  use  the  following  function: 

y  normalized  object  space  a  YN0RMZ(X,X) 
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Mod 1 f Icati ons 

Normalized  object  space  Is  based  upon  a  maximum  value 
of  1.0  In  the  x-  and  y-axes.  The  user  may  change  these 
values  by  making  a  mode  set  call.  The  new  normalized  ob¬ 
ject  space  coordinates  must  be  used  wherever  normalized 
object  Is  required.  The  mode  set  calls  are  as  follows: 

1)  To  change  the  maximum  x-axIs  normalized  object 
space , 

CALL  SETSMG(T. 1 9 .XMAX ) 

XMAX  Is  the  new  normalized  x-axis  object 
space.  XMAX  s  1.0  Is  the  default  value. 

2)  To  change  the  maximum  y-axls  normalized  object 
space , 

CALL  SETSMG(7,20 , YMAX) 

YMAX  Is  the  new  normalized  y-axls  object 
space.  YMAX  a  1.0  Is  the  default  value. 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV.  XMAX  and  YMAX  must  be  greater 
than  XMIN  and  YMIN ,  respectively. 
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SETSMG:  Sets  Mode  Values 


PURPOSE 

Sets  a  single  value  in  the  mode  set  array.  Mode  sets 
stay  in  effect  until  specifically  reset,  or  until  the  system 
is  re- i ni ti al i zed .  All  mode  sets  have  a  unique  default 
value  set  by  the  initialization  call  to  MODESG  and  by  calls 
to  RSETMG . 

USAGE 


Standard  Calls 

CALL  SETSMGd. NO. VALUE) 

1)  Z  is  the  mode  set  array. 

2)  NO  is  a  number  identifying  the  particular  mode 
set. 

3)  VALUE  is  the  mode  set  value.  See  Appendix  H 
(p.  127)  for  a  list  of  the  individual  mode  sets 
possible. 

MISCELLANEOUS  INFORMATION 


Written  in  FORTRAN  IV. 
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GETSMG:  Retrieves  Mode  Values 


PURPOSE 

Retrieves  a  single  value  from  the  mode  set  array. 


USAGE 


Standard  Calls 

CALL  GETSMG(X,fi£. VALUE) 

1)  Z  Is  the  mode  set  array. 

2)  NO  Is  a  number  Identifying  the  particular  mode 
set. 

3)  VALUE  will  contain  the  mode  set  value  on  return. 
See  Appendix  H  (pp.  127-130)  for  a  description 
of  the  Individual  mode  sets  possible. 

MISCELLANEOUS  INFORMATION 


Written  in  FORTRAN  IV. 
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RSETMG:  Resets  all  Default  Values  In  Mode  Set  Array 
PURPOSE 

Resets  all  values  In  the  mode  set  array  to  their 
proper  default  values. 

USAGE 

Standard  Calls 

CALL  RSETMG(I) 

Z  Is  the  mode  set  array. 

MISCELLANEOUS  INFORMATION 
Written  In  FORTRAN  IV. 
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EXITG:  Closes  Down  the  Graphic  Devices 


PURPOSE 

Turns  off  the  graphic  devices  and  closes  the  output 
files. 

USAGE 


Standard  Calls 

CALL  EXITG(Z) 

Z  Is  the  mode  set  array. 

Special  Calls 

A  call  Is  provided  to  terminate  the  user's  program 
abnormally  without  knowing  the  user's  mode  set  array.  The 
call  Is  the  same  as  that  above,  minus  the  reference  to 
the  mode  set  array: 

CALL  EXITG(O) 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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GRAPHIC  OUTPUT  SUBROUTINES 


Figure  3  illustrates  the  graphic  output  subroutines. 


Draws  joined  lines--  Draws  line  segments--  Draws  multiple  lines 
LINESG  SEGMTG  MLTPLG 


Draws  circles  and  arcs--CIRARG 


A 

BC 

DEFG 

H*/K 

Types  characters--LEGNDG ,TEXTG 


•  •  • 

Plots  poi nts--POINTG 


27 

36.293 
0.263E  +  06 

Displays  numeric  data--NUMBRG 


Fig.  3--Graphi c  Output  Subroutines 
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CIRAR6:  Draws  a  Circle  or  an  Arc 


PURPOSE 

Draws  a  circle  or  arc.  Since  the  2250  can  not  draw 
a  curved  line,  the  circle  or  arc  is  approximated  by  drawing 
short  line  segments. 

USAGE 


Standard  Calls 

CALL  CIRARGf7.XC.YC. RADIUS. START. ARC) 

1)  Z  is  the  mode  set  array. 

2)  XC,YC  is  the  x,y  location  of  the  center  point 
of  the  arc. 

3)  RADIUS  is  the  radius  of  curvature.  It  should 
be  in  the  same  units  as  the  x  coordinates. 

4)  START  is  the  angle,  in  degrees,  at  which  to 
start  drawing.  Counterclockwise  angles  are 
positive  (0°  is  horizontal  and  to  the  right). 

5)  ARC  is  the  number  of  degrees  of  arc  to  display. 
For  example,  an  arc  of  720°  would  cause  two 
complete  circles  to  be  drawn,  one  on  top  of 
the  other. 

Modi ficati  ons 

Use  mode  sets  to  modify  CIRARG  as  follows: 

1)  To  change  the  angle  between  two  successive 
points , 


CALL  SETSMG (7,83 .ANGLE) 
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ANGLE  Is  the  angle  In  degrees  between  two 
points  on  the  arc.  ANGLE  8  5.0°  Is  the  de¬ 
fault  value. 

2)  To  draw  the  arc  with  points  rather  than  line 
segments , 

CALL  SETSMG(7,£1.Ll) 

To  reset  to  draw  the  arc  with  line  segments, 
CALL  SETSMG(Z,82,0j 

When  an  arc  Is  drawn  with  points,  all  the  mode 
sets  described  In  POINTG  are  In  effect.  Points 
will  be  plotted  at  each  end  of  an  arc.  Thus, 

If  a  360°  arc  Is  specified,  points  will  be 
displayed  at  0°  and  at  360°,  which  turn  out 
to  be  the  same  location. 

3)  To  specify  unprotected  x,y  coordinates, 

CALL  SETSMG(7,92.D 

Unprotected  x,y  coordinates  may  be  manipu¬ 
lated  Individually  by  GPXYG. 

To  return  the  mode  set  to  Its  default  value 
of  protected  x,y  coordinates, 

CALL  SETSMG(7,92,(K) 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV.  All  mode  sets  described  In 
LINESG  will  be  In  effect  If  the  circle  Is  drawn  with  line 
segments,  and  all  mode  sets  described  In  POINTG  will  be  In 
effect  If  the  circle  Is  drawn  with  points. 
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LEGNDG:  Types  Characters 


PURPOSE 

Types  characters,  starting  at. a  given  x,y  location. 

If  the  characters  extend  beyond  the  right  margin,  the  line 
Is  ejected  to  the  left  margin;  If  beyond  the  bottom  margin, 
the  line  Is  ejected  to  the  top. 

USAGE 


Standard  Calls 

CALL  LEGNDG(I.X.Y.N.CHAR) 

1)  Z  Is  the  mode  set  array. 

2)  X , Y  Is  the  location  of  the  center  of  the  first 
character. 

3)  N  Is  the  number  of  characters  to  type  (Nil). 

4)  CHAR  Is  the  name  of  a  variable  or  an  array  that 
contains  the  characters  to  type. 

Modifications 

Use  mode  sets  to  modify  LEGNDG  as  follows: 

1)  To  change  the  character  size, 

CALL  SETSMG(?.45  .SIZE  1 

SIZE  specifies  the  size  of  the  characters 
relative  to  normal  size.  1.0  and  1.5  are 
allowed  for  the  2250.  SIZE  ■  1.0  Is  the 
default  value. 

2)  To  specify  the  number  of  lines  to  space  up  or 
down  If  the  characters  exceed  the  right  margin, 
causing  the  line  to  be  ejected  to  the  left 
margin. 
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CALL  SETSMG(Z.49.+-SPACL) 

SPACE  specifies  the  number  of  lines  to 
space  up  or  down.  This  Is  equivalent  to 
setting  a  typewriter  carriage  return  for 
the  number  of  liner  to  space.  A  minus 
spacing  causes  the  line  to  be  spaced  down 
the  page;  and  a  positive  spacing,  up. 

SPACE  =  -1.0  Is  the  default  value. 

3)  To  change  the  line  orientation, 

CALL  SETSMGd. 50. ANGLE) 

ANGLE  designates  the  angle  In  degrees  at 
which  the  line  of  characters  Is  to  be 
displayed  (0°  Is  horizontal  and  to  the 
right).  Counterclockwise  angles  are 
positive.  Only  0°  and  +-90°  are  allowed 
for  the  2250.  This  call  does  not  change 
the  character  orientation.  ANGLE  *  0.0  Is 
the  default  value. 

4)  To  specify  the  margins  of  the  page, 

CALL  SETSMGfZ. 60. XLEFT) 

XLEFT  designates  the  left  margin  of  the 
page  In  subject  space  coordinates.  XLEFT 
s  0.0  Is  the  default  value. 

CALL  SETSMG(?.61 .RIGHT) 

RIGHT  specifies  the  right  margin  of  the 
page  In  subject  space  coordinates.  RIGHT 
■  4095.0  Is  the  default  value. 

CALL  SETSMG(7, 62, BOTTOM) 

BOTTOM  stipulates  the  bottom  margin  of 
the  page  In  subject  space  coordinates. 
BOTTOM  «  0.0  Is  the  default  value. 
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CALL  SETSMG(7.63.T0P) 

TOP  fixes  the  top  margin  of  the  page  In 
subject  space  coordinates.  TOP  a  4095.0 
Is  the  default  value. 


5)  To  specify  unprotected  characters, 

CALL  SETSMG(7,92 ,  ]_. ) 

The  user  may  write  over  unprotected  char¬ 
acters  with  either  the  keyboard  or  RAND 
Tablet. 

To  reset  to  the  default  condition  of  protected 
characters , 

CALL  S  ETSMG  (7, 92, 0_J 


6)  To  specify  the  form  of  the  x,y  coordinates  used 
1 n  the  call, 

CALL  SETSMG(7.14.TYPE1 

TYPE  fixes  the  form  of  the  x,y  coordinates. 


If  TYPE 


0.0,  x,y  are  real  subject 
space  units. 

1.0,  x,y  are  real  absolute 
raster  units. 

2.0,  x,y  are  Integer  absolute 
raster  units. 

3.0,  x,y  are  real  normalized 
object  space  units. 


MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV. 
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LINESG:  Draws  Joined  Lines 


PURPOSE 

Draws  connected  line  segments,  joining  points  In  an 
x,y  array. 

USAGE 


Standard  Calls 

CALL  LINE$G(I,N,X,Y) 

1)  Z  Is  the  mode  set  array. 

2)  N  Is  the  number  of  x,y  coordinates.  N  -  1 
joined  line  segments  will  be  drawn. 

3)  X ,Y  are  arrays  of  x,y  coordinates.  A  line  Is 
drawn  between  each  point  In  the  arrays. 

Special  Calls 

1)  To  draw  a  line  from  the  current  point  position 
to  an  x,y  location, 

CALL  LINESG(I,1,*,I) 

a)  Z  Is  the  mode  set  array. 

b)  X , Y  Is  the  x,y  position  to  which  to  draw 
the  line. 

2)  To  position  the  current  point  to  an  x,y  location 
without  displaying  enyth1"(i, 

CALL  LINESG{I,0,X,Y) 

a)  Z  Is  the  mode  set  array. 

b)  X , Y  Is  the  x,y  point  at  which  to  position 
the  beam. 
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Modl f Icatlons 

Use  mode  sets  to  modify  LINES6  as  follows: 

1)  To  specify  unprotected  x,y  coordinates, 

CALL  SETSMG(7,92,1_.) 

Use  GPXYG  to  manipulate  unprotected  x,y 
coordl nates . 

To  reset  to  the  default  condition  of  protected 
x,y  coordinates , 

CALL  SETSMG(Z,£2,(h) 

2)  To  specify  the  form  of  the  x,y  coordinates  used 
In  the  cal  1  , 

CALL  SETSMG( Z . 1 4  .TYPE) 

TYPE  designates  the  form  of  the  x,y 
coordinates . 

If  TYPE  *  0.0,  x,y  are  real  subject  space 
units. 

■  1.0,  x,y  are  real  absolute  raster 

units . 

■  2.0,  x,y  are  Integer  absolute 

raster  units. 

■  3.0,  x,y  are  real  normalized 

object  space  units. 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV. 


-38- 


MLTPLG:  Draws  Multiple  Line  Segments 


PURPOSE 

Draws  multiple  line  segments.  First,  two  line  seg¬ 
ments  are  drawn.  Next,  a  given  number  of  line  segments 
are  drawn  between  the  two  lines,  in  a  direction  similar  to 
that  of  the  original  lines.  MLTPLG  facilitates  drawing 
grid  lines,  crosshatching,  and  shading.  It  can  draw  lines 
at  any  orientation  to  each,  not  just  parallel. 

USAGE 


Standard  Calls 

CALL  MLTPLG(I,N,X1  ,YJ  ,X2, Y2.I3, Y3.X4.Y4) 

1)  Z  is  the  mode  set  array. 

2)  N  specifies  the  number  of  lines  to  draw  between 
the  two  given  lines.  If  N  =  0,  only  the  two 
given  lines  will  be  drawn. 

3)  XI, Y1  and  X2,Y2  are  two  points  specifying  a 
line. 

4)  X3.Y3  and  X4,Y4  are  two  points  specifying  a 
line. 

Modif icati ons 

All  mode  sets  described  in  LINESG  are  applicable  to 
this  subroutine. 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  MLTPLG  has  many  uses  not  at 
first  apparent.  It  is  a  convenient  means  of  drawing  any 
two  line  segments  with  a  single  call.  If  the  delimiting 
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NUMBRG ;  Displays  Numeric  Data 


PURPOSE 

Displays  Integer  or  real  numbers. 


USAGE 


Standard  Calls 

1)  To  display  an  Integer  number  In  I  format, 

CALL  NUMBRG(Y.X.Y.IFMT.INTG) 

a)  Z  Is  the  mode  set  array. 

b)  X , Y  Is  the  x,y  position  at  which  to  dis¬ 
play  the  number,  l.e.,  the  center  of  the 
leftmost  character. 

c)  I FMT  Is  an  Integer  Indicating  the  number 
of  digits  to  display. 

d)  INTG  Is  the  number  to  display. 

2)  To  display  a  real  number  In  F  format, 

CALL  NUHBRG (7. X .Y  . FHT .REAL) 

a)  Z  Is  the  mode  set  array. 

b)  X ,Y  Is  the  x,y  position  at  which  to 
display  the  number,  l.e.,  the  center  of  the 
leftmost  character. 

c)  FHT  Is  a  real  number  that  specifies  the 
format.  It  Is  of  the  form  w.d,  where  w 
specifies  the  field  width,  and  d  the  number 
of  decimal  places  (d  <  10). 

d)  REAL  Is  the  number  to  display. 

3)  To  display  a  real  number  In  E  format, 

CALL  NUHBRG(7.X.Y. -FHT. REAL) 


> 
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a)  Z  Is  the  mode  set  array. 

b)  X,Y  Is  the  x,y  position  at  which  to  dis¬ 
play  the  number,  1.e.t  the  center  of  the 
leftmost  character. 

c)  -FMT  Is  a  real  number  that  specifies  the 
format.  It  Is  of  the  form  w.d,  where  w 
Is  the  field  width  and  d  the  number  of 
decimal  places.  Four  places  nust  be  pro¬ 
vided  for  the  exponent  and  two  places  for 
the  sign  and  digit  to  the  left  of  the 
decimal  place.  In  general,  w  »  d  +  7. 

d)  REAL  Is  the  number  to  display. 

4)  To  display  characters  In  A  format  (this  call  Is 
equivalent  to  a  call  to  LEGNDG) , 

CALL  NUMBRG(7.X.Y.-IFMT. CHARS) 

a)  Z  Is  the  mode  set  array. 

b)  X , Y  Is  the  x,y  position  at  which  .o  dis¬ 
play  the  number,  l.e.,  the  center  of  the 
leftmost  character. 

c)  -IFMT  Is  an  Integer  Indicating  the  number 
of  characters  to  display. 

d)  CHARS  Is  the  name  of  a  variable  or  array 
that  contains  the  character  string  to 
display. 


A  special  call  allows  the  format  to  be  specified  by 
mode  sets: 


CALL  NUMBRG(?.X.Y.O. VALUE) 

VALUE  is  the  name  of  the  variable  to  display.  The 
format  must  be  specified  by  the  following  mode  set 
calls  prior  to  the  call  to  NUMBRG : 
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1)  CALL  SETSMG(Z. 77. WIDTH) 

WIDTH  Is  the  field  width. 

2)  CALL  SETSMGfZ  .78. DEC) 

DEC  is  the  number  of  decimal  places. 

3)  CALL  SETSMG(Z.79.FMT) 

FMT  is  the  format  in  which  to  display  the 
number . 

If  FMT  =  1.0,  I  format. 

=  2.0,  F  format. 

=  3.0,  E  format. 

=  4.0,  A  format. 


Modi f i cations 

All  mode  sets  described  In  LEGNDG  are  also  applica¬ 
ble  to  this  subroutine. 

MISCELLANEOUS  INFORMATION 


Written  in  FORTRAN  IV. 
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POINTG:  Plots  Points 


PURPOSE 

Plots  arrays  of  points. 


USAGE 


Standard  Calls 

CALL  P0INTG(Z ,N,X,Y) 

1)  Z  is  the  mode  set  array. 

2)  N  is  the  number  of  points  (N  >.  1). 

3)  X , Y  are  arrays  of  N  x,y  coordinate  pairs  to  plot. 

Mod i f i cations 

Use  mode  sets  to  modify  POINTG  as  follows: 

1)  To  specify  a  new  plotting  symbol  (the  default 
character  is  a  normal-sized  point), 

CALL  SETSMG(Z. 84. VALUE) 

VALUE  must  contain  the  character,  left- 
justified,  to  use  for  plotting. 

To  reset  to  the  default  value  of  a  point, 

CALL  SETSMG(T,84,0J 

Plotting  with  the  default  point  requires  four 
bytes  of  2250  buffer  per  point;  plotting 
other  symbols,  ten  bytes  per  point. 

2)  To  specify  unprotected  x ,y  coordinates, 

CALL  SETSMG(Z,92,1_. ) 

Use  GPXYG  to  manipulate  unprotected  x,y 
coord i nates . 
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To  reset  to  the  default  condition  of  protected 
x,y  coordinates, 

CALL  SETSMG(I,92,0.. ) 

3)  To  specify  the  form  of  the  x,y  coordinates  used 
1 n  the  cal  1 , 

CALL  SETSMG(Z  .14 .TYPE) 

TYPE  designates  the  form  of  the  x,y 
coordl nates . 

If  TYPE  ■  0.0,  x,y  are  real  subject  space 
units . 

*  1.0,  x ,y  are  real  absolute  raster 
units. 

■  2.0,  x,y  are  Integer  absolute 

raster  units. 

■  3.0,  x,y  are  real  normalized 

object  space  units. 

MISCELLANEOUS  INFORMATION 
Written  In  FORTRAN  IV. 


-45- 


SEGMTG:  Draws  Line  Segments 


PURPOSE 

Draws  noncontiguous  line  segments.  Arrays  XI  ,Y1 
specify  the  initial  x,y  coordinates  of  each  segment;  arrays 
X2,Y2  specify  the  terminal  x,y  coordinates. 

USAGE 


Standard  Calls 

CALL  SEGMTG(7,N,)U  ,Y1  ,X2,Y2) 

1)  Z  is  the  mode  set  array. 

2)  N  is  the  number  of  line  segments  to  draw.  If 

N  >  1,  X1,Y1  and  X2,Y2  must  be  arrays  of  points. 

3)  X1,Y1  are  arrays  containing  the  starting  points 
of  each  line. 

4)  X2,Y2  are  arrays  containing  the  terminal  points 
of  each  line. 


Modifications 

All  mode  sets  described  In  LINESG  are  also  applicable 
to  this  subroutine. 


MISCELLANEOUS  INFORMATION 


Written  in  FORTRAN  IV. 
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TEXTG:  Types  Characters 


PURPOSE 

Types  characters,  beginning  at  the  current  point  posi¬ 
tion.  If  the  characters  extend  beyond  the  right  margin, 
the  line  is  ejected  to  the  left  margin.  TEXTG  resembles 
LEGNDG,  but  begins  typing  where  the  previous  display  ended, 
while  LEGNDG  begins  typing  at  a  specified  x,y  coordinate. 

USAGE 


Standard  Calls 

CALL  TEXTG(Z.N.CHAR) 

1)  Z  Is  the  mode  set  array. 

2)  N  is  the  number  of  characters  to  type  (N  z.  1). 

3)  CHAR  is  the  name  of  the  variable  or  array  that 
contains  the  characters  to  type. 

Modifications 

All  mode  sets  described  in  LEGNDG  are  also  applicable 
to  this  s ubrouti ne . 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  LINESG  may  be  used  to  position 
the  beam  to  any  specified  location. 
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GRAPH  SUBROUTINES 

A  graph  is  composed  of  three  separate  parts:  a  grid 
of  lines,  labels  of  the  major  axis,  and  titles.  Three 
corresponding  subroutines  produce  the  graphs.  The  user 
may  then  plot  data  on  the  graphs  with  the  graphic  output 
subroutines  such  as  POINTG  or  LINESG. 

A  special  subroutine,  SETUPG,  aids  the  user  in  com¬ 
puting  arguments  that  produce  aesthetically  pleasing  graphs 
These  subroutines  are  combined  in  subroutine  GRAPHG  to  draw 
label,  title,  and  plot  an  entire  graph. 


GRIDG  LABELG 


T 

I 

M 

E 

Velocity 

Time  vj.  velocity 

Titles  made  by 
TITLEG 


Fig.  4--Graph  Subroutines 


GRIDG:  Draws  a  Grid 


PURPOSE 

Constructs  cartesian  gr1ds--draws  all  lines  and 
emphasizes  the  major  grid  divisions.  GRIDG  assumes  that 
the  user  has  established  his  subject  space  with  SUBJEG  and 
his  object  space  with  OBJCTG.  The  object  space  should  pro 
vide  a  margin  because  the  g**id  will  fill  the  entire  object 
space.  Figure  5  Illustrates  the  grid. 

USAGE 

Standard  Calls 

CALL  GRIDG(7.DX  .DY .IXTH.JYTH) 

1)  Z  Is  the  mode  set  array. 

2)  DX.DY  are  the  x,y  grid  Intervals  In  user  co¬ 
ordinates.  If  DX  or  DY  »  0.0,  no  grid  lines 
are  drawn  for  the  axis.  DX  controls  spacing 
between  the  vertical  grid  lines  and  DY  the 
horizontal.  If  the  user's  x-axIs  subject 
space  decreases  from  left  to  right,  or  the 
y-axls  subject  space  decreases  from  bottom 
to  top,  DX  or  DY  must  be  negative,  respec¬ 
tively.  If  the  zero-axis  lies  within  the 
grid,  DX  or  DY  are  spaced  from  the  zero-axis 
outward.  Otherwise,  they  are  spaced  from 
left  to  right  or  from  bottom  to  top. 

3)  IXTH.JYTH  specify  the  1th  x-grld  line  and  the 
j**1  y-grld  line  to  emphasize.  If  IXTH  or  JYTH 
«  0.0,  no  lines  are  emphasized  for  It.  The 
emphasis  lines  are  drawn  with  twice  the  normal 
line  weight. 


CALL  GRIDG(Z,DX,DY,IXTH,JYTH) 


l  JYTH 


All  grid  margins 
are  specified  by 
setting  the  object 
space. 
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Speclal  Calls 

A  log  grid  can  be  drawn  by  making  one  of  the  mode 
sets  described  below.  The  subject  space  must  be  positive 
and  should  be  a  power  of  ten.  To  draw  a  log  grid,  make 
the  Indicated  mode  set  call  and  then  call  GRIDG.  The 
arguments  have  the  following  special  meanings  for  the  log 
grids : 

1)  DX,DY  are  Ignored  and  may  be  dummy  arguments 
If  the  grid  Is  log  In  x  or  y. 

2)  IXTH.JYTH  specify  whether  the  major  cycle  lines 
are  to  be  emphasized.  If  zero,  no  emphasis 
occurs;  If  greater  than  zero,  emphasis  occurs. 

Modi f 1  cations 

Use  mode  sets  to  modify  GRIDG  as  follows: 

1)  To  control  the  emphasis  of  the  major  axes, 

CALL  SETSMG(Z. 100. EMPH) 

EMPH  specifies  what  Is  to  be  emphasized. 
EMPH  =  0.0  is  the  default  value. 

If  EMPH  =  0.0,  emphasize  x  =  0 ,  y  =  0 
axes . 

=  1.0,  emphasize  x  =  0  axis  only. 
=  2.0,  emphasize  y  =  0  axis  only. 
=  3.0,  no  emphasis. 

The  emphasis  lines  are  drawn  with  twice  the 
normal  11. le  weight.  They  will  not  be  drawn  If 
the  zero-axis  lies  outside  the  grid.  For 
nonlinear  grids,  the  major  axes  are  defined 
as  the  X  =  1  ,  Y  =  1  axes . 

To  draw  a  log  grid  In  the  x-axis, 

CALL  SETSMG(7,23,K) 


2) 
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To  return  to  the  default  condition  of  a  linear- 
grid, 

CALL  SETSMG(7,23 ,0_. ) 

Set  up  the  subject  space  for  the  log  grid  before 
making  this  mode  set  call. 

3)  To  draw  a  log  grid  In  the  y-axls, 

CALL  SETSMG(Z,24,1_. ) 

To  return  to  the  default  condition  of  a  linear 
grid, 

CALL  SETSMG{T,24  ,0_. ) 

Set  up  the  subject  space  for  the  log  grid  before 
making  this  mode  set  call. 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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LABELG:  Labels  a  Grid 


PURPOSE 

Labels  the  axes  of  a  grid  drawn  by  GRIDG.  The  user 
may  label  both  the  x  and  y  axes  with  numeric  or  alphanumeric 
labels.  The  y-axls  will  be  labeled  to  the  left  of  the  grid 
and  the  x-axIs  below  It.  Figure  6  Illustrates  the  labels. 

USAGE 


Standard  Calls 

1)  To  create  alphameric  labels, 

CALL  LABEL6(Z . IAXIS.DLXY .NCHAR.CHARS ) 

a)  Z  Is  the  mode  set  array. 

b)  I AX  IS  specifies  the  axis  to  label. 

If  IAXIS  ■  0,  label  the  x-axIs. 

»  1 ,  label  the  y-axls. 

c)  DLXY  fixes  the  x-lnterval  If  IAXIS  »  0,  or 
the  y-lnterval  If  IAXIS  »  1,  In  user  co¬ 
ordinates  (subject  space)  between  each  label. 
If  the  x-axIs  decreases  from  left  to  right, 
or  the  y-axls  from  bottom  to  top,  then  DLXY 
must  be  negative.  For  labeling  log  grids, 
DLXY  specifies  the  cycle  lines  to  label. 

For  example,  DLXY  »  1.0  stipulates  the 
labeling  of  each  cycle  line  and  DLXY  ■  3.0 
every  third  line. 

d)  NCHAR  specifies  the  number  of  characters  to 
display  for  each  cycle  of  the  label. 

e)  CHAR  contains  the  characters  used  In  the 
label.  CHAR  must  contain  enough  characters 
for  all  labels.  For  example.  If  NCHAR  »  3 
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and  four  lines  are  to  be  labeled,  CHAR  must 
contain  twelve  characters. 

2)  To  create  Integer  numeric  labels  In  I  format, 

CALL  LABELG(?. IAXIS. DLXY .O.IFMT) 

a)  Z  Is  the  mode  set  array. 

b)  I  AX  I S  specifies  the  axis  to  label. 

If  IAXIS  -  0,  label  the  x-axIs. 

■  1 ,  label  the  y-axls. 

c)  DLXY  fixes  the  x-lnterval  If  IAXIS  ■  0,  or 
the  y-lnterval  If  IAXIS  *  1,  In  user  co¬ 
ordinates  (subject  space)  between  each  label. 
If  the  x-axIs  decreases  from  left  to  right, 
or  the  y-axls  from  bottom  to  top,  then  DLXY 
must  be  negative.  For  labeling  log  grids, 
DLXY  specifies  the  cycle  lines  to  label. 

For  example,  DLXY  >  1.0  stipulates  the 
labeling  of  each  cycle  line  and  DLXY  ■  3.0 
every  third  line. 

d)  IFMT  Is  an  Integer  fixing  the  number  of 
digits  to  display. 

3)  To  create  real  numeric  labels  In  F  format, 

CALL  LABELG(I, IAXIS, DLXY ,0,FMT) 

a)  Z  Is  the  mode  set  array. 

b)  IAXIS  specifies  the  axis  to  label. 

If  IAXIS  ■  0,  label  the  x-axIs. 

■  1 ,  label  the  y-axls . 

c)  DLXY  fixes  the  x-lnterval  If  IAXIS  -  0,  or 
the  y-lnterval  If  IAXIS  ■  1,  In  user  co¬ 
ordinates  (subject  space)  between  each  label. 
If  the  x-axIs  decreases  from  left  to  right. 
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or  the  y-axls  from  bottom  to  top,  then  DLXY 
must  be  negative.  For  labeling  log  grids, 

DLXY  specifies  the  cycle  lines  to  label. 

For  example,  DLXY  «  1.0  stipulates  the 
labeling  of  each  cycle  line  and  DLXY  =  3.0 
every  third  line. 

d)  FMT  Is  a  real  number  that  specifies  the 
format.  It  Is  of  the  form  w.d,  where  w 
specifies  the  field  width  and  d  the  number 
of  decimal  places  (d  <  10). 

4)  To  create  real  numeric  labels  In  E  format, 

CALL  LABELG(Y, IAXIS, DLXY  ,0 .-FMT) 

a)  Z  Is  the  mode  set  array. 

b)  I  AX  I S  specifies  the  axis  to  label. 

If  I  AX  1 5  -  0,  label  the  x-axIs. 

*  1 ,  label  the  y-axls . 

c)  DLXY  fixes  the  x-lnterval  If  IAXIS  ■  0,  or 
the  y-lnterva!  If  IAXIS  *  1,  In  user  co¬ 
ordinates  (subject  space)  between  each  label. 
If  the  x-axIs  decreases  from  left  to  right, 
or  the  y-axls  from  bottom  to  top,  then  DLXY 
must  be  negative.  For  labeling  log  grids, 

DLXY  specifies  the  cycle  lines  to  label. 

For  example,  DLXY  ■  1.0  stipulates  the 
labeling  of  each  cycle  line  and  DLXY  *  3.0 
every  third  line. 

d)  -FMT  Is  a  real  number  that  specifies  the 
format.  It  Is  of  the  form  w.d,  where  w  Is 
the  field  width  and  d  the  number  of  decimal 
places.  Four  places  must  be  provided  for 
the  exponent  and  two  for  the  sign  and  digit 

to  the  left  of  the  decimal  place.  In  general, 
w  «  d  +  7. 


Use  mode  sets  to  modify  LABELG  as  follows: 

1)  To  specify  that  a  tick  mark  be  drawn  above  the 
x-axIs  labels  or  beside  the  y-axls  labels, 

CALL  SETSMGfZ. 102. XSIZE) 

XSIZE  specifies  the  length  of  the  tick  mark 
for  the  x-axIs  label  In  normalized  object 
space.  If  XSIZE  ■  0.0,  no  tick  mark  Is 
drawn.  XSIZE  ■  0.0  Is  the  default  value. 

CALL  SETSMGfZ. 103, YSIZE) 

YSIZE  fixes  the  length  of  the  tick  mark  for 
the  y-axls  label  In  normalized  object  space. 
If  YSIZE  ■  0.0,  no  tick  mark  Is  drawn. 

YSIZE  -  0.0  1$  the  default  velue. 

All  modes  described  In  LINESG  are  In  effect  when 
the  tick  marks  are  drawn.  If  XS* IE  or  YSIZE  are 
positive,  the  tick  marks  are  drawn  Inside  the 
grid;  If  minus,  outside.  To  draw  tick  marks 
alone  without  a  label,  set  NCHAR  ■  1,  and  define 
CHARS  to  contain  as  many  Hollerith  blanrs  as 
there  are  labels. 

2)  To  specify  the  locations  at  which  to  label, 

CALL  SETSMGfT.104.XPL ACE) 

XPLACE  defines  the  distance  from  the  x-axIs 
to  the  label  as  a  multiple  of  character 
height.  XPLACE  ■  -1.0  Is  the  default  value. 

If  XPLACE  ■  0.0,  label  at  y  ■  0  major 

axis.  (This  may  cause 
the  label  to  fall  Inside 


>  0.0  (+),  label  the  x-axIs 

above  the  grid. 

<  0.0  (-),  label  the  x-axIs 

below  the  grid. 

CALL  SETSMGf Z. 1 05 .Y PLACE) 

YPLACE  defines  the  distance  from  the  y-axls 
to  the  label  as  a  multiple  of  character  width. 
YPLACE  «  -1.0  Is  the  default  value. 

If  YPLACE  -  0.0,  label  at  x  ■  0  major  axis. 

(This  may  cause  the  label 
to  fall  Inside  the  grid.) 

>  0.0  (+),  label  the  y-axls  on 

the  right  of  the  grid. 

<  0.0  (-),  label  the  y-axls  on 

.  the  left  of  the  grid. 

3)  To  change  the  character  size,  give  the  mode  set 
calls  described  In  LEGNDG. 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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TITLEG :  Titles  a  Grid 

PURPOSE 

Titles  the  x  and  y  axes  and  the  graph,  and  auto¬ 
matically  centers  the  titles.  TITLEG  provides  a  quick, 
easy  method  of  titling  a  graph.  For  full  control  over 
titling,  use  LEGNDG  rather  than  TITLEG.  Figure  7  Illus¬ 
trates  the  titles. 

USAGE 

Standard  Calls 

CALL  TITLEGf?. NX. XCHAR. NY. YCHAR. NT, TCHAR) 

1)  Z  Is  the  mode  set  array. 

2)  NX  specifies  the  number  of  characters  In  the 
x-axIs  title,  centered  below  the  grid.  If 
NX  -  0,  the  x-axIs  Is  not  titled. 

3)  XCHAR  contains  the  NX  characters  for  the  x-axIs 
title.  If  NX  -  0,  XCHAR  should  be  a  dummy 
argument . 

4)  NY  specifies  the  number  of  characters  In  the 
y-axls  title,  vertically  centered  left  of  the 
grid.  The  line  orientation  will  be  90°.  If 
NY  -  0,  the  y-axls  Is  not  titled. 

5)  YCHAR  contains  the  NY  characters  for  the  y-axls 
title.  If  NY  «  0,  YCHAR  should  be  a  dummy 
argument. 

6)  NT  specifies  the  number  of  characters  In  the 
graph  title,  centered  below  the  x-axIs  title. 

If  NT  *  0,  the  graph  Is  not  titled. 

7)  TCHAR  contains  the  NT  characters  for  the  graph 
t 1 t 1 2 .  If  NT  ■  0,  TCHAR  should  be  a  dummy 
argument. 
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Modl flcatlons 

Use  mode  sets  to  modify  TITLEG  as  follows: 

1)  The  mode  set  array  contains  the  area  available 
for  titling.  Normally,  these  values  are  stored 
In  the  mode  set  array  by  GRIDG  or  LABELG.  How¬ 
ever,  If  neither  GRIDG  nor  LABELG  has  been 
called,  the  user  must  supply  the  values  himself 
with  one  of  the  following  mode  set  calls: 

CALL  SETSHG(7,1 13.XMIN) 

XMIN  specifies  the  minimum  x-locatlon  In 
normalized  object  space  occupied  by  the 
graph.  Including  labels. 

CALL  SETSMGCZ.I 14. YMIN) 

YMIN  designates  the  minimum  y-locatlon  In 
normalized  object  space  occupied  by  the 
graph.  Including  labels. 

CALL  SETSMGCZ.I  15 .XMAX) 

XMAX  specifies  the  maximum  x-locatlon  In 
normalized  object  space  occupied  by  the 
graph,  Including  labels. 

CALL  SETSM6C7.1 16.YMAX) 

7 MAX  stipulates  the  maximum  y-locatlon  In 
normalized  object  spice  occupied  by  the 
graph.  Including  labels. 

2)  To  specify  the  position  of  the  title, 

CALL  SETSMGCl. 104. XPLACE) 

XPLACE  designates  the  distance  from  the 
grid  to  the  x-axIs  title  as  a  multiple  of 
character  height.  It  also  fixes  the  dis¬ 
tance  from  the  x-axIs  title  to  the  graph 
title.  XPLACE  ■  -1.0  Is  the  default  value. 


If  XPLACE  >  0.0  (  +  ) 

'  '•  t'tIe  above  the  grid. 

11*0  (-)t  title  below  the  grid, 

CALL  SETSMG (2 , 1 05.YPLACE) 

.?  S  ;;;,c:f:es  the 

vplacE  . .  o  ;sat;e  rre,of  character 

,u  1s  the  default  value. 

If  YPLACE  >0  0  1  +  1  tui 

'  /•  title  on  the  right 

side  of  the  grid. 

<  (-),  title  on  the  left 

side  of  the  gr*d. 

3)  Change  the  character  size  with  the  a,ode  set  calls 
described  in  LEGNOG.  1  11 

miscellaneous  information 

Written  In  FORTRAN  IV. 
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SETUPG;  Computes  Appropriate  Arguments  for 
the  Grid  Routines 


PURPOSE 

Computes  values  to  be  subsequently  included  in  calls 
to  GRIDG  and  LABELG.  SETUPG  allows  the  user  to  adjust  his 
subject  and  object  space  to  produce  a  more  aesthetic  graph. 
Altering  the  object  space  red-  ces  the  size  of  the  display 
surface,  creating  a  margin  around  the  grid.  Such  altera¬ 
tion  also  causes  the  scaling  factors  to  be  recomputed  so 
that  all  subsequent  calls  to  graphic  output  subroutines 
will  result  in  the  data  being  scaled  into  the  area  of  the 
grid.  If,  after  calling  SETUPG,  the  user  wants  to  draw 
outside  the  grid,  he  must  either  call  OBJCTG  to  reset  the 
display  surface,  or  use  the  special  mode  set  indicating 
absolute  raster  units. 

In  many  instances,  particularly  where  the  range  of  the 
data  Is  unknown.  It  Is  difficult  to  determine  In  advance 
the  arguments  for  the  grid  routines.  SETUPG  analyzes  the 
range  of  the  user's  data  and  computes  appropriate  arguments 
for  the  grid  routines.  SUBJEG  must  be  called  before  SETUPG 
to  establish  the  subject  space  so  that  SETUPG  will  know 
the  limits  of  the  data.  However,  the  subject  space  must  not 
be  negative;  the  x-axIs  must  Increase  from  left  to  right, 
and  the  y-axls  from  bottom  to  top.  SET"PG  computes  values 
for  both  linear  and  nonlinear  grids. 

USAGE 


Standard  Calls 

CALL  SETUPG( Z. MODE. DX.DY .TxTH.JYTH.DLX, PLY. XFMT.YFMT) 

1)  Z  Is  the  mode  set  array. 

2)  MODE  Indicates  whether  the  user's  subject  space 
and  the  grid  margins  are  to  be  adjusted. 


/ 
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If  MODE  =  0,  no  adjustment  is  necessary. 

=  1  ,  adjust  both  the  subject  and 
object  space. 

=  2,  adjust  only  the  subject  space. 

=  3,  adjust  only  the  object  space. 

The  user  must  call  SUBJEG,  giving  the  minimum 
and  maximum  limits  of  his  data,  before  calling 
SETUPG. 

3)  DX , D Y  contain  the  x,y  grid  intervals  used  in 
subsequent  calls  to  GRIDG. 

4)  IXTH.JYTH  contain  numbers,  used  in  calls  to 
GRIDG,  specifying  the  x,y  grid  lines  to  emphasize. 

5)  DLX.DLY  contain  the  x  and  y  intervals,  used  in 
calls  to  LABELG,  between  the  axes  labels. 

6)  XFMT.YFMT  contain  the  numeric  for.nats  for  labels, 
also  used  in  calls  to  LABELG. 


Modi f i cations 


Use  mode  sets  to  modify  SETUPG  as  follows: 

1)  To  force  SETUPG  to  compute  values  that  will 
result  in  a  square  grid, 

CALL  SETSMG(Z,  110,1.) 

To  reset  the  mode  to  its  default  value  so  that 
a  square  grid  is  not  mandatory, 

CALL  SETSMG(Z. 110.0.) 

?)  To  adjust  the  density  of  the  grid  lines, 

CALL  SETSMG(Z, 111 , XDEN) 

XDEN  specifies  the  density,  expressed  as 
a  minimum  distance  between  grid  lines  in 
normalized  object  space,  of  the  x-axis 
(vertical)  grid  interval  lines.  XDEN  = 
.01009  is  the  default  value  (about  one 
character  width). 
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CALL  SETSMG(Z  ,1 1 2 ,YDEN) 

YDEN  specifies  the  density,  expressed  as  a 
minimum  distance  between  grid  lines  In  norm¬ 
alized  object  space,  of  the  y-axls  (hori¬ 
zontal)  grid  Interval  lines.  YDEN  *  .016607 
Is  the  default  value  (about  one  character 
height) . 

3)  To  reset  the  grid  margins, 

CALL  SETSMG(Z. 106. XLEFT) 

XLEFT  Is  the  size  of  the  left  margin.  In 
normalized  object  space.  XLEFT  *  .15  Is 
the  default  ^alue. 

CALL  SETSMG(Z. 107. RIGHT) 

RIGHT  Is  the  size  of  the  right  margin.  In 
normalized  object  space.  RIGHT  ■  .15  Is 
the  default  value. 

CALL  SETSMG(Z,108, BOTTOM) 

BOTTOM  Is  the  size  of  the  bottom  margin. 

In  normalized  object  space.  BOTTOM  »  .15 
Is  the  default  value. 

CALL  SETSMG(? . 1 09 .TOP ) 

TOP  Is  the  size  of  the  top  margin,  In 
normalized  object  space.  TOP  *  .15  Is  the 
default  value. 


MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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GRAPHG;  Constructs  a  Complete  Graph 


PURPOSE 

Constructs  an  entire  graph,  complete  with  grid,  labels, 
titles,  and  plotted  data.  It  requires  only  minimum  Informa¬ 
tion  from  the  user  and  makes  all  decisions  Itself.  GRAPHG 
normally  resets  both  the  subject  and  object  space.  This 
allows  subsequent  calls  to  POINTG  or  LINESG  for  plotting 
more  than  one  graph  variable.  The  subject  space  will  not 
be  reset  If  NO,  the  number  of  points  to  plot.  Is  zero.  The 
object  space  will  not  be  reset  If  the  grid  margins  are  set 
to  zero  In  the  mode  set  array. 

USAGE 


Standard  Calls 

CALL  GRAPHG( Z .NO .X .  Y .NX.XCHAR .NY .Y CHAR  .NT .TCHAR) 

1)  Z  Is  the  mode  set  array. 

2)  NO  specifies  the  number  of  x ,y  coordinates  to 
plot.  If  NO  ■  0,  the  graph  Is  drawn  but  no 
points  are  plotted.  This  also  prevents  the 
subject  space  from  being  reset.  NO  ■  1  Is 
not  legal . 

3)  X , V  are  arrays  of  NO  x ,y  coordinates  to  plot. 

If  NO  ■  0,  X  and  Y  should  be  dummy  arguments. 

4)  NX  specifies  the  number  of  characters  In  the 
x-axIs  title,  centered  below  the  grid.  If 
NX  ■  0,  the  x-axIs  Is  not  titled. 

5)  XCHAR  contains  the  NX  characters  to  use  for  the 
x-axIs  title.  If  NX  -  0,  XCHAR  should  be  a 
dummy  argument. 
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6)  NY  specifies  the  number  of  characters  In  the 
y-axis  title,  oriented  at  90°  and  vertically 
centered  to  the  left  of  the  grid.  If  NY  *  0, 
the  y-axis  Is  not  titled. 

7)  YCHAR  contains  the  NY  characters  used  in  the 
y-axis  title.  If  NY  =  0,  YCHAR  should  be  a 
dummy  argument. 

8)  NT  specifies  the  number  of  characters  in  the 
graph  title,  centered  below  the  x-ax  s  title. 

If  NT  =  0,  the  graph  is  not  titled. 

9)  TCHAR  contains  the  NT  characters  used  in  the 
graph  title.  If  NT  *  0,  TCHAR  should  be  a 
dummy  argument. 

Modi f 1  cations 

All  the  sets  described  In  SETUPG,  GRAPHG ,  LABELG, 
TITLEG,  and  P0INTG  are  also  applicable  to  this  subroutine. 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  GRAPHG  resets  the  grid  margins 
in  the  mode  set  array  to  zero  because  GRAPHG  sets  the 
object  space  based  upon  the  current  object  space  and  the 
amount  of  grid  margin  specified  In  the  mode  set  array.  If 
GRAPHG  did  not  set  the  grid  margins  to  zero,  subsequent 
calls  to  It  would  continue  to  decrease  the  size  of  the 
object  space,  resulting  In  smaller  and  smaller  graphs. 
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GRAPHIC  MANIPULATION  SUBROUTINES 

DISPLG  deletes  or  turns  displays  on  and  off,  GPCHRG 
manipulates  unprotected  characters,  and  GPXYG  manipulates 
unprotected  x,y  coordinates. 


Note  that  each  display  occupies  a 
virtual  area  defined  by  Its  min iMun 
and  maximum  coordinates.  This 
virtual  area  Is  used  by  GSTATG  and 
MAITSG  In  determining  which  lb  Is 
touched  with  the  RAND  Tablet  pen. 
Where  the  areas  overlap,  the  first 
ID  created  Is  assumed  to  be  touched. 
This  problem  does  not  arise  when  a 
display  Is  touched  with  the  light 
pen  since  the  hardware  gives  the 
system  the  buffer  location  of  the 
light  pen  strike. 


Fig.  8--Graph1c  Manipulation  Subroutines 

C  THE  FOLLOWING  ' PROGRAM*  ILLUSTRATES  THE  USE  OF  CONTROL  AREAS. 

C  SEE  THE  SUBROUTINE  WRITEUPS  FOR  A  DESCRIPTION  OF  THE  ARGUMENTS 
C  IN  THE  CALLS. 

C  SET  FOR  UNPROTECTED  DATA  SO  WE  CAN  MANIPULATE  IT. 

CALL  SETSMG( Z ,92,1 . ) 

C  GET  AN  ID  FOR  THE  FIRST  DISPLAY. 

CALL  GETIDG(Z.IDl) 

C  DRAW  THE  DISPLAY  TOR  101. 

CALL  LEGNDG(Z,X,Y , 3.3HABC) 

CALL  SEGMTG( Z ,  1  ,X1  ,Y1 .X2.Y2) 

C  GET  AN  ID  FOR  THE  NEXT  DISPLAY. 

CALL  GETIDG(Z, ID2) 

C  DRAW  THE  DISPLAY  FOR  ID2. 

CALL  CIRARG(Z,X,Y,R,0. ,360.) 

CALL  SEGMTG(Z,1  ,X1,Y1,X2,Y2) 

C  NOW  LET'S  MANIPULATE  THE  DISPLAYS.  REPLACE  THE  'BC1  In  ID1 
C  WITH  A  ' DL ' . 

CALL  GPCHRG(Z ,1  ,ID1 ,2,2,2HDE) 

C  TURN  ID1  OFF  SO  THAT  WE  DON'T  SEE  IT. 

CALL  DI SPLG( Z ,2,1,101) 

C  AND  THEN  TURN  IT  BACK  ON  SO  WE  CAN  SEE  IT  AGAIN. 

CALL  D I S PLG ( Z  ,1,1 , 1 Dl ) 

C  NOW  DELETE  EVERYTHING. 

CALL  DISPLG(Z  ,0,0,0) 
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PURPOSE 

Deletes  displays  or  turns  them  off  or  on.  A  display 
that  Is  turned  off  disappears  from  the  2250  scope,  but  can 
be  made  to  reappear  by  turning  It  on.  A  deleted  display 
Is  removed  entirely. 


USAGE 


Standard  Calls 

CALL  DISPLG(I,I,NO,ID) 

1)  Z  Is  the  mode  set  array. 

2)  I  specifies  the  action: 

If  I  ■  0,  delete  the  displays. 

-  1,  turn  the  displays  on. 

■  2,  turn  the  displays  off. 

3)  NO  designates  the  number  of  displays. 

4)  ID  contains  the  ID  of  the  displays.  If 
NO  >  1 ,  ID  must  be  an  array  of  size  NO. 


>ec1al  Calls 


To  process  all  displays, 
CALL  DISPLG(Z,I, fi.fi) 


1)  Z  Is  the  mode  set  array. 


2)  I  specifies  the  action: 


If  I  ■  0,  delete  the  displays. 

■  1,  turn  the  displays  on. 

■  2,  turn  the  displays  off. 


MISCELLANEOUS  INFORMATION 


Written  In  0S/360  assembly  language. 


GPCHRG;  Manipulates  Characters  In  Displays 


PURPOSE 

Replaces  or  retrieves  unprotected  characters  within 
a  display,  which  are  Identified  by  the  sequence  In  which 
they  are  displayed.  For  example.  If  two  unprotected  char¬ 
acters  are  displayed,  then  three  protected  characters, 
then  a  single  unprotected  character,  the  last  unprotected 
character  Is  Identified  as  the  third  unprotected  character. 

USAGE 

Standard  Calls 

1)  To  retrieve  unprotected  characters, 

CALL  GPCHRG(7.0.ID.NTH.Nff.lMK) 

a)  Z  Is  the  mode  set  array. 

b)  ID  contains  the  ID  of  the  display. 

c)  NTH  specifies  the  first  unprotected  char¬ 
acter  to  retrieve.  (Retrieve  NO  characters, 
beginning  with  the  NTH  character.)  If 

NTH  ■  0,  NTH  ■  1  Is  assumed. 

d)  NO  designates  the  number  of  unprotected 
characters  to  retrieve.  If  NO  ■  0,  all 
unprotected  characters  are  retrieved,  and 
NO  Is  set  to  the  number  of  unprotected 
characters  In  the  display. 

e)  CHAR  must  be  an  array  large  enough  to  con¬ 
tain  the  retrieved  characters. 

2)  To  replace  unprotected  characters, 

CALL  GPCHRG(7,1  . ID. NTH , WE, CHAR) 
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a)  Z  Is  the  mode  set  array. 

b)  ID  contains  the  ID  of  the  display. 

c)  NTH  specifies  the  first  unprotected  char¬ 
acter  to  replace.  (Replace  NO  characters, 
beginning  with  the  NTH  character.)  If 
NTH  =  0,  NTH  *  1  Is  assumed. 

d)  NO  fixes  the  number  of  unprotected  char¬ 
acters  to  replace. 

e)  CHAR  contains  the  characters  used  In 
replacement. 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language. 
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GPXYG:  Manipulates  X,Y  Coordinates  within  a  Display 
PURPOSE 

Retrieves,  replaces,  or  moves  specific  unprotected 
x,y  coordinates  within  a  display,  which  are  Identified  by 
the  sequence  number  in  which  they  are  displayed.  For 
example,  if  two  unprotected  coordinates  are  displayed, 
then  three  protected  coordinates,  then  a  single  unprotected 
coordinate,  the  last  unprotected  coordinate  Is  Identified 
as  the  third  unprotected  coordinate. 

USAGE 


Standard  Calls 

CALL  GPXYG  (7, T.H),  NTH, Nff, ][,][) 

1)  Z  Is  the  mode  set  array. 

2)  I  Indicates  the  manipulation  to  be  done. 

If  I  *  0,  retrieve  unprotected  x,y  coordinates. 

*  1,  replace  unprotected  x,y  coordinates. 

*  2,  move  unprotected  x,y  coordinates. 

3)  ID  contains  the  ID  of  the  display. 

4)  NTH  specifies  the  unprotected  x,y  coordinate 
at  which  to  begin  manipulation.  If  NTH  »  0, 

NTH  *  1  is  assumed. 

5)  NO  designates  the  number  of  unprotected  x,y 
coordinates  to  manipulate.  If  NO  *  0,  all 
unprotected  x,y  coordinates  are  manipulated, 
and  NO  is  set  to  the  number  of  unprotected  x,y 
coordinates  In  the  display.  That  Is,  one  Is 
telling  the  system  to  retrieve,  replace,  or 
move  NO  x,y  coordinates,  starting  with  the 
NTH  coordinate. 
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6) 


X , Y  are  the 
If  I  «  0, 


-  1. 


-  2, 


x,y  coordinates. 

X , Y  will  contain  the  x,y  coordi¬ 
nates  on  return.  ( X , Y  must  be 
arrays  large  enough  to  contain 
the  coordinates . ) 

X ,Y  must  be  arrays  of  coordinates 
to  replace  the  coordinates  In  the 
display. 

X , Y  are  a  single  delta  x  and 
delta  y  to  add  to  the  original 
x,y  coordinates. 


Special  Calls 

A  special  call  allows  I6S  to  retrieve  unprotected  x,y 
coordinates,  normally  obtained  from  Internal  core  account¬ 
ing,  directly  from  the  2250  buffer: 

CALL  GPXYG(7,3,ID,NTH,Wff,Y.V) 


1)  Z  Is  the  mode  set  array. 

2)  ID  contains  the  ID  of  the  display. 

3)  NTH  specifies  the  unprotected  x,y  coordinate 
at  which  to  begin  manipulation.  If  NTH  «  0, 
NTH  *  1  Is  assumed. 

4)  NO  designates  the  number  of  unprotected  x,y 
coordinates  to  retrieve.  If  NO  *  0,  all 
unprotected  x,y  coordinates  are  retrieved, 
and  NO  Is  set  to  the  number  of  unprotected 
x,y  coordinates  In  the  display. 

5)  X , Y  will  contain  the  x,y  coordinates  on  re¬ 
turn.  ( X , Y  must  be  arrays  large  enough  to 
contain  the  coordinates.) 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language. 
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GRAPHIC  INPUT  SUBROUTINES 

Graphic  Input  subroutines  determine  the  status  of 
graphic  Input  devices  (GSTATG)  and  wait  for  some  action 
from  graphic  Input  devices  (WAITSG).  CHARG  allows  the 
user  to  replace  unprotected  characters  manually  from  the 
console  with  the  RAND  Tablet  pen,  and  DATAG  allows  him 
to  Input  numeric  data  from  the  console.  RECOG  recognizes 
and  displays  geometric  figures  hand-drawn  with  the  RAND 
Tablet  pen. 
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GSTATG:  Checks  the  Status  of  a  Device 


PURPOSE 

Checks  the  current  status  of  a  graphic  input  device. 
The  RAND  Tablet  pen  Is  either  up  or  down.  The  status  of 
the  light  pen,  keyboard,  and  function  keyboard  is  more 
complicated.  They  are  checked  by  both  GSTATG  and  WAITSG. 
GSTATG  indicates  what  has  happened  to  them  since  the  last 
time  they  were  checked.  Therefore,  their  current  status 
may  be  defined  as  the  first  action  since  the  last  call  to 
either  GSTATG  or  WAITSG. 

USAGE 


Standard  Calls 

1)  To  check  the  status  of  the  Tablet  pen, 

CALL  GSTATG(Z,0,rvXL,X,Y) 

a)  Z  is  the  mode  set  array. 

b)  IVAL  contains  the  pen  status. 

If  IVAL  *  0,  pen  is  up. 

=  1,  pen  Is  down  but  no  display 
was  touched. 

>  1,  pen  Is  down  and  IVAL  con¬ 
tains  the  ID  of  the  display 
touched . 

c)  X , Y  contains  the  current  location  of  the  pen. 

2)  To  check  the  status  of  the  light  pen, 

CALL  GSTATG(Z,1,TTO,7,T) 

a)  Z  is  the  mode  set  array. 
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b)  IVAL  contains  the  light  pen  status. 

If  IVAL  =  0,  no  light  pen  strike. 

t  0,  IVAL  contains  the  ID  of  the 
display  touched. 

c)  X , Y  contains  the  x,y  coordinates  of  the 
light  pen  strike--if  there  is  one. 

3)  To  check  the  status  of  the  keyboard, 

CALL  GSTATG(Z,2,TVAL,0,0) 

a)  Z  is  the  mode  set  array. 

b)  IVAL  contains  the  keyboard  status. 

If  IVAL  =  0,  no  key  has  been  hit. 

*  1 ,  END  key  was  last  hit. 

*  2,  CANCEL  key  was  last  hit. 

4)  To  check  the  status  of  the  function  keys, 

CALL  GSTATG(Z, 3, Tm, TOVFl  ,0) 

a)  Z  is  the  mode  set  array. 

b)  IVAL  contains  the  function  keyboard 
status.  IVAL  *  N,  where  N  is  an  Integer 
(0  <  N  <  32) . 

If  IVAL  ■  0,  no  key  was  hit. 

f  0,  IVAL  is  an  integer  indicating 
the  last  key  that  was  struck. 

c)  IOVRL  contains  the  overlay  code--1f  a  key 
was  struck  (0  <.  IOVRL  <.  255). 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language.  When  the  user 
Is  waiting  for  the  Tablet  or  light  pen,  IVAL  returns  with 
the  ID  of  any  display  touched.  If  more  than  one  display 
occupies  the  same  area,  the'  ID  of  the  first  display  created 
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1s  returned.  The  RAND  Tablet  determines  the  proper  ID 
based  upon  the  area  of  the  display  defined  by  two  points: 
one  point  determined  by  the  minimum,  and  the  other  by  the 
maximum,  x  and  y  of  any  part  of  the  display.  Therefore, 
while  the  display  may  not  be  rectangular,  the  area  It  de¬ 
fines  Is  assumed  to  be.  Thus,  some  Incorrect  IDs  may  be 
returned  when  one  ID  overlays  another  and  the  RAND  Tablet 
Is  used. 

This  problem  does  not  occur  with  the  light  pen.  The 
light  pen  detects  the  light  from  the  CRT  beam  when  the 
beam  enters  the  pen's  field  of  vision.  When  the  light  pen 
detect  occurs,  the  location  of  the  display  In  the  buffer 
Is  made  available.  With  this  Information,  the  system 
easily  determines  the  ID  of  the  display  occupying  that 
portion  of  the  2250  buffer. 
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WAITSG:  Waits  for  Console  Action 

PURPOSE 

Awaits  user  action  on  one  of  the  graphic  Input 
devices . 

USAGE 


Standard  Calls 

1)  To  await  a  specific  Tablet  pen  action, 

CALL  waitsg(7.o.  icheck. Tval  .?.7l 

a)  Z  Is  the  mode  set  array. 

b)  ICHECK  specifies  the  action  to  await. 

If  ICHECK  ■  0,  wait  for  pen  up. 

■  1 ,  wait  for  pen  down. 

c)  I VAL  contains  the  ID  of  the  display  touched. 

If  IVAL  ■  0,  no  display  touched. 

>  0,  IVAL  contains  the  ID  of  the 
display . 

d)  X , Y  contains  the  x,y  coordinates  of  the  pen 
on  return. 

2)  To  await  any  action  on  the  Input  devices, 

CALL  WAITSG{ Z,i, ICHECK, Im.X.Y) 

a)  Z  Is  the  mode  set  array. 

b)  ICHECK  Indicates,  on  return,  which  device 
caused  the  Interruption. 

If  ICHECK  ■  0,  Tablet  pen  has  gone  up  or 
down . 

(1)  IVAL  contains  the  pen  status. 
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If  IVAL  =  0,  pen  up. 

=  1 ,  pen  down  but  no 

display  was  touched 
>  1 ,  pen  down  and  IVAL 
contains  the  ID  of 
the  display  touched 

( 1  i )  X,Y  contains  the  x,y  coordinates 
of  the  pen  on  return. 

If  ICHECK  =  1,  light  pen  trap  has  occurred. 

(1)  IVAL  contains  the  ID  of  the 
display  touched. 

(11)  X,Y  contains  the  x,y  location  of 
the  light  pen  strike. 

If  ICHECK  =  2,  keyboard  trap  has  occurred. 

(1 )  IVAL  *  1 ,  END  key  hit. 

*  2,  CANCEL  key  hit. 

(11)  X , Y  are  meaningless. 

If  ICHECK  =  3,  function  keyboard  trap  has 
occurred . 

(1)  IVAL  Indicates  the  specific  key 
hit  (1  <  IVAL  <  32). 

(11)  X  contains  an  Integer  repre¬ 
senting  the  overlay  code 
(0  <  X  <  255). 

(Ill)  Y  Is  meaningless. 

3)  To  await  action  on  the  light  pen  only, 

CALL  WAITSG( Z,£, ICHECK, TVAL,X,Y) 

4)  To  await  action  on  the  keyboard  only, 

CALL  WAITSG(Z,3,TCHECK,Im,X,Y) 

5)  To  await  action  on  the  function  keys  only, 

CALL  WAITSG{7,4_,  ICHECK  ,T7aL  ,7,7) 
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MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  When  the  user  is  awaiting 
action  on  the  Tablet  or  light  pen,  IVAL  returns  with  the 
ID  of  any  display  touched.  If  more  than  one  displav 
occupies  the  same  area,  the  ID  of  the  first  display  created 
is  returned.  The  RAND  Tablet  determines  the  proper  ID 
based  upon  the  area  of  the  display  defined  by  two  points: 
one  point  determined  by  the  minimum,  and  the  other  by  the 
maximum,  x  and  y  of  any  part  of  the  display.  Therefore, 
while  the  display  may  not  be  rectangular,  the  area  it  de¬ 
fines  is  assumed  to  be.  Thus,  some  incorrect  IDs  may  be 
returned  when  one  ID  overlays  another  and  the  RAND  Tablet 
is  used. 

This  problem  does  not  occur  with  the  light  pen.  The 
light  pen  detects  the  light  from  the  CRT  beam  when  the  beam 
enters  the  pen's  field  of  vision.  When  the  light  pen  de¬ 
tect  occurs,  the  location  of  the  display  in  the  buffer  is 
made  available.  With  this  information,  the  system  easily 
determines  the  ID  of  the  display  occupying  that  portion 
of  the  2250  buffer. 
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CHARG:  Inputs  Characters  with  the  RAND  Tablet 
PURPOSE 

Allows  the  user  to  write  over  unprotected  characters 
manually  with  the  RAND  Tablet  pen.  The  handwritten  char¬ 
acter  will  replace  the  character  on  the  scope,  and  the  ID 
of  the  appropriate  display  will  be  flagged  as  having  had 
a  character  changed.  The  new  character  will  be  the  same 
size  (normal  or  large)  as  the  original  character. 

USAGE 


Standard  Calls 

CALL  CHARG(I) 

Z  Is  the  mode  set  array.  The  user  may  write  as  many 
characters  as  he  desires.  When  finished,  he  may 
cause  a  return  by  drawing  a  horizontal  line  more  than 
one  Inch  long  (usually  accomplished  by  sweeping  the 
pen  across  the  Tablet)  or  by  hitting  the  END  key,  a 
function  key,  or  using  the  light  pen. 

Modi f Icatlons 

To  change  the  pen-up  delay  time  (time  required  for 
IGS  to  decide  whether  two  pen  strokes  constitute  a  single 
character) , 

CALL  SETSMG(7,88 .TIME ) 

TIME  specifies  the  time  In  seconds  to  allow  the 
user  to  delay  In  writing  multi-stroke  characters. 

TIME  ■  0.5  Is  the  default  value. 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language.  The  following 
characters  may  be  recognized:  A  through  Z,  0  through  9, 
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and  .,♦-*/■$()'><.  When  an  unrecognizable 
character  Is  drawn,  a  question  mark  (?)  will  be  returned 
as  the  character.  The  following  characters  may  be  recog¬ 
nized  Indirectly: 

Character  drawn  Character  recognized 

Caret  A  e 

Left  bracket  [  | 

Right  bracket  ]  n 

Scrub  (erase)  Blank 

References  3  and  4  completely  describe  the  character 
recognition  routines.  CHARG  depends  on  the  RAND  Tablet. 
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DATAG:  Inputs  Data 


PURPOSE 

Allows  the  user  to  input  data  from  the  2250  console. 

He  passes  it  a  set  of  variables,  whose  current  values  are 
subsequently  displayed  on  the  scope.  He  may  modify  the 
values  with  either  the  keyboard  or  the  RAND  Tablet.  When 
he  causes  a  return  from  the  subroutine,  the  displays  are 
erased  and  the  new  values  of  the  variables  are  returned  to 
the  user.  A  return  Is  accomplished  by  hitting  the  END  key, 
a  function  key,  using  the  light  pen,  or  by  drawing  a  hori¬ 
zontal  line  more  than  one  Inch  long  with  the  RAND  Tablet 
pen  (usually  by  sweeping  the  pen  across  the  Tablet). 

USAGE 

Standard  Calls 

CALL  DAT AG(7.  X  .  Y  .NO  .NAME!  ,FMT1  ,VAR1  .NAME2  ,FMI2  ,VAR2. .  .  . ) 

1)  Z  is  the  mode  set  array. 

2)  X , Y  is  the  x,y  location  at  which  to  display  the 
first  variable.  Each  successive  variable  is 
displayed  below  the  previous. 

3)  NO  specifies  the  number  of  variables  to  display. 
Thret  arguments  are  needed  for  each  variable: 

a  label,  the  format,  and  the  variable  itself 
(1  <  NO  <  20) . 

4)  NAME  must  contain  eight  characters  to  display 
to  the  left  of  the  variable  on  the  2250  scope. 

The  name  helps  the  user  identify  the  variables 
being  displayed. 

5)  FMT  designates  the  format  In  which  to  display 
the  variable.  For  integer  (I)  format,  FMT  must 
be  a  positive  Integer  specifying  the  number  of 
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digits.  For  real  format,  FMT  must  be  a  real 
number  of  the  form  w.d,  where  w  is  the  field 
width  and  d  is  the  number  of  decimal  places 
(d  <  10).  If  FMT  is  +  ,  the  output  is  in  F 
format.  If  FMT  is  the  output  is  in  L  format. 
For  alphameric  (A)  format,  FMT  must  be  a  nega¬ 
tive  integer  specifying  the  number  of  characters. 

6)  VAR  is  the  variable  to  be  displayed.  It  may 
contain  a  real,  integer,  or  character  value  on 
entry  and  is  updated  on  return. 

Modifications 

Use  mode  sets  to  modify  DATA6  as  follows: 

1)  To  change  the  automatic  spacing  of  the  variables, 

CALL  SETSMG(2,89,DX) 

CALL  SETSMG{I,90,DY) 

DX.DY  are  the  distances  between  each 
successive  variable  in  the  x  and  y  directions. 
DX  =  0.0,  DY  =  -80.0  are  the  default  values. 

2)  To  specify  the  location  of  each  variable  rather 
than  having  it  automatically  calculated, 

CALL  SETSMG{  Z  ,91  , 1_. ) 

This  call  informs  DATAG  that  the  X,Y  in  the 
calling  sequence  are  arrays  of  x,y  coordinates 
of  size  NO.  To  reset  the  mode  to  its  default 
condition  where  only  the  first  x,y  location 
of  the  buttons  is  specified, 

CALL  SETSMG{Z,9J,(L  ) 

3)  To  specify  the  number  of  characters  in  the  names 
to  be  associated  with  the  variables, 

CALL  SETSMG(Z,93,CN) 
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CN  Is  a  real  number  specifying  the  number  of 
characters  In  each  name.  CN  *  8.0  Is  the 
default  value. 

MISCELLANEOUS  INFORMATION 

Written  In  two  parts.  DATAG,  an  assembly  language 
routine,  collects  the  variable-length  calling  sequence  Into 
an  array  and  calls  DATAGG.  DATAGG  Is  written  In  FORTRAN  IV 
and  does  all  Input/output. 

The  cursor  Is  positioned  on  the  first  variable,  to 
allow  the  user  to  type  In  values  from  the  keyboard.  Upon 
return,  the  cursor  resumes  Its  Initial  position. 

Return  Is  Initiated  either  by  hitting  the  END  key  or 
by  drawing  a  horizontal  line  more  than  one  Inch  long  with 
the  RAND  Tablet  pen. 


RFCOG :  Recognizes  and  Displays  Geometric  Figures 


PURPOSE 

Recognizes  and  displays  the  following  hand-drawn 
geometric  figures:  lines,  rectangles,  circles,  triangles, 
diamonds,  ellipses,  and  trapezoids.  RECOG  returns  when 
a  figure  Is  recognized.  The  user  may  force  a  return 
by  hitting  a  function  key  or  the  END  key,  or  by  using  the 
light  pen. 

USAGE 


Standard  Calls 


CALL  RECOG(Z,D/TfA) 

1)  Z  Is  the  mode  set  array. 

2)  DATA  must  be  an  array.  It  will  contain  the 
following  on  return: 


If  DATA(l) 


DATA ( 2 ) 
DAT  A ( 3 ) 
DATA ( 4 ) 
DAT  A ( 5 ) 
DATA ( 6 ) 
DAT  A ( 7 ) 


0.0,  line. 

1.0,  rectangle. 

2.0,  circle. 

3.0,  triangle. 

4.0,  ellipse. 

5.0,  diamond. 

6.0,  trapezoid. 

100.0,  return  caused  by  END  key, 
function  key,  or  light  pen 
No  figure  was  recognized 
or  drawn. 

x  location  of  pen  down, 
y  location  of  pen  down, 
x  location  of  pen  up. 
y  location  of  pen  up. 
x  location  of  centroid, 
y  location  of  centroid. 


MSJUiWU. 


-86- 


DAT A ( 8 )  =  minimum  x  of  figure. 

DAT  A  ( 9 )  =  minimum  y  of  figure. 

DATA(IO)  =  maximum  x  of  figure. 

DATA (11)  =  maximum  y  of  figure. 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV.  RECOG  depends  on  the  RAND 
Tablet. 
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PROGRAM  CONTROL  SUBROUTINES 

Three  program  control  subroutines  are  provided:  AREASG 
and  BUTTNG  establish  "sensitive"  areas,  and  PUSHG  determines 
when  these  areas  are  touched. 


No. 

No. 


A  double  asterisk  Is 
displayed  beside  an 
area  when  a  call  to 
PUSHG  Indicates  that 
the  area  Is  touched. 


Fig.  9--Program  Control  Subroutines 


C  THE  FOLLOWING  'PROGRAM*  ILLUSTRATES  THE  USE  OF  CONTROL  AREAS. 

C  SEE  THE  SUBROUTINE  WRITEUPS  FOR  A  DESCRIPTION  OF  THE  ARGUMENTS 
C  IN  THE  CALLS. 

C  FIRST,  CREATE  A  VIRTUAL  AREA  AND  ASSIGN  IT  SEQUENCE  NO.  1. 

CALL  AREA$G(  Z ,  1  , X 1 . Y 1 .X2.Y2.1) 

C  THEN  SET  THE  MODE  SO  THAT  A  80X  IS  DRAWN  AROUND  THE  NEXT  AREA. 
CALL  SETSMG( Z ,98 , 1 . ) 

C  THE  NEXT  AREA  IS  CREATEO  AND  ASSIGNED  SEQUENCE  NO.  2. 

CALL  AREASG { Z ,1  ,X3,Y3,X4,Y4,2) 

C  FINALLY  WE  CREATE  THE  TWO  BUTTONS  AND  ASSIGN  THEM  SEQUENCE  NO'S 
C  3  AND  4. 

CALL  BUTTNG{  Z,X,Y,2,16HSTART  STOP  ,3) 

C  I  CAN  NOW  WAIT  FOR  SOME  BUTTON  OR  AREA  TO  BE  TOUCHED  BY  THE  USER 
C  AT  THE  CONSOLE. 

CALL  FuSHG{ Z ,0 ,0 , 1 S EQ) 

C  AND  THEN  USE  A  COMPUTED  GO  TO  TO  PROCESS  THE  BUTTON. 

GO  TO  (  100,200,300,400)  ,  I S EQ 
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AREASG:  Sets  Up  Rectangular  Control  Areas 
on  the  2250  Scope 


PURPOSE 

Defines  sensitive  control  areas  on  the  2250  screen. 
Once  the  rectangular  control  areas  are  set  up,  use  PUSHG 
to  detect  when  they  are  touched  by  either  the  RAND  Tablet 
pen  or  light  pen. 

USAGE 

Standard  Calls 

CALL  AREASG(Z.N.X1 .Y1 .X2.V2.ISE0) 

1)  Z  Is  the  mode  set  array. 

2)  N  Is  the  number  of  control  areas  to  set  up. 

If  N  >  1,  X 1  , Y 1  and  X2,Y2  must  be  arrays  of  at 
least  size  N. 

3)  XI, Y1  Is  the  lower  left  point  of  the  area. 

4)  X2.Y2  Is  the  upper  right  point  of  the  area. 

5)  ISEQ  Is  the  sequence  number  assigned  to  the 
first  area.  Each  succeeding  area  Is  assigned 

a  sequence  number  one  greater  than  the  previous 
area,  so  the  final  number  equals  ISEQ  +  N  -  1. 
PUSHG  will  return  this  number  when  the  control 
area  Is  touched. 

Modi f 1 c  a  1 1 ons 

1)  To  draw  a  box  around  the  control  areas  to  make 
them  visible, 

CALL  SETSMG(Z,98,1  .) 
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Thls  mode  set  must  be  used  If  the  area  Is  to  be 
detected  with  the  light  pen. 

2)  To  reset  the  mode  to  Its  default  value  (no  box 
drawn  around  the  control  area), 

CALL  SETSMG(7,98,(h  ) 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV.  If  one  sensitive  area  should 
overlay  another,  the  area  most  recently  created  will  be 
detected.  Sensitive  areas  turned  off  by  DISPLG  can  not  be 
detected  by  PUSHG  until  DISPLG  turns  them  back  on. 
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BUTTNG:  Sets  Up  Control  Buttons  on  the  2250 


PURPOSE 

Sets  up  alphameric  buttons  on  the  2250  screen.  Once 
the  buttons  are  set  up,  use  PUSHG  to  detect  when  they  are 
touched  by  the  RAND  Tablet  pen  or  light  pen. 

USAGE 


Standard  Calls 

CALL  BUTTNG(Z,X ,Y,N, NAMES,  ISEQ) 

1)  Z  is  the  mode  set  array. 

2)  X , Y  is  the  x,y  centroid  of  the  leftmost  char¬ 
acter  of  the  first  button.  The  buttons  are 
displayed  In  columnar  form  with  the  first  button 
at  the  x,y  location,  and  each  successive  button 
placed  below  Its  predecessor. 

3)  N  is  the  number  of  buttons  to  display. 

4)  NAMES  Is  an  array  containing  a  character  string 
for  the  button  labels,  each  eight  characters 
long.  The  first  eight  characters  will  be  dis¬ 
played  as  the  first  button,  the  second  eight 

as  the  next  button,  etc. 

5)  ISEQ  Is  the  sequence  number  assigned  to  the 
first  button.  Each  succeeding  button  Is  as¬ 
signed  a  sequence  number  one  greater  than  the 
previous,  so  the  number  of  the  last  button 
equals  ISEQ  +  N  -  1.  PUSHG  returns  this 
sequence  number  to  Indicate  a  button  touch. 
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Modi f 1 ca  ti ons 

Use  mode  sets  to  modify  BUTTNG  as  follows: 

1)  To  change  the  length  of  the  button  labels, 

CALL  SETSMG{Z,95,CN) 

CN  is  a  real  number  specifying  the  number 
of  characters  in  a  button  label.  CN  =  8.0 
i s  the  defaul t  value. 

2)  To  alter  the  automatic  spacing  of  the  buttons, 

CALL  SETSMG(Z,96,DX) 

CALL  SETSMG(I,97,DY) 

DX,DY  are  thw  distances  between  each 
successive  button  in  the  x  and  y  directions. 
DX  *  0.0,  DY  *  -80.0  are  the  default  values. 

3)  To  specify  the  location  of  each  button,  rather 
than  having  It  automatically  calculated, 

CALL  SETSMG(7,94  .K) 

This  call  Informs  BUTTNG  that  the  X,Y  In  the 
calling  sequence  are  arrays  of  x,y  coordinates 
of  size  N.  To  reset  the  mode  to  its  default 
value  where  only  the  first  x,y  location  of  the 
buttons  is  specified, 

CALL  SETSMG(Z,94,0J 
MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV.  If  one  sensitive  area  should 
overlay  another,  the  area  most  recently  created  will  be 
detected.  Sens'tlve  areas  turned  off  by  DISPLG  can  not  be 
detected  by  PUSHG  until  DISPLG  turns  them  back  on.  Because 
of  hardware  design  In  the  2250,  the  light  pen  can  most 
successfully  detect  the  leftmost  characters  of  the  buttons. 
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PUSHG;  Determines  Whether  a  Control  Area  Is  Pushed 
PURPOSE 

Determines  whether  the  pen  has  touched  a  control  area 
set  up  by  BUTTNG  or  AREASG.  If  so,  an  asterisk  will  appear 
beside  the  area. 

USAGE 

Standard  Calls 

CALL  PUSHG(J,X>,Y,n^J) 

1)  Z  Is  the  mode  set  array. 

2)  X , Y  are  the  x,y  coordinates  of  the  pen,  pre¬ 
viously  obtained  from  a  call  to  GSTATG  or  WAITSG. 

3)  ISEQ  contains  the  sequence  number,  specified 
by  a  call  to  BUTTNG  and  AREASG,  of  the  control 
area  penned.  ISEQ  ■  0  If  no  area  is  penned. 

Special  Calls 

If  a  previous  x,y  coordinate  has  not  been  obtained, 

CALL  PUSHG(Z,0,0,TSEQ) 

Return  occurs  only  when  the  light  pen  or  RAND 
Tablet  pen  touches  a  button. 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  If  one  sensitive  area  should 
overlay  another,  the  area  most  recently  created  will  be 
detected.  Sensitive  areas  turned  off  by  DISPLG  can  not 
be  detected  by  PUSHG  until  DISPLG  turns  them  back  on. 


id 
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MISCELLANEOUS  SPECIAL-FUNCTION  SUBROUTINES 

ALARMG  sounds  the  2250  audio  alarm;  CURSRG  locates, 
Inserts,  or  removes  the  cursor  from  unprotected  characters; 
and  SETFKG  sets  the  function-key  lights.  GTIMEG  determines 
the  date  and  time  of  day,  and  WTIMEG  suspends  computer 
operations  for  a  specified  period  of  time.  CONVTG  converts 
characters  to  numeric,  and  FMTSG  converts  numeric  data  to 
characters.  CHANG  Identifies  IDs  that  have  had  characters 
changed  by  the  RAND  Tablet,  DEBUG  displays  selected  vari¬ 
ables,  and  SNAPG  produces  2250  hardcopy. 
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ALARMG:  Sounds  the  2250  Audio  Alarm 


PURPOSE 

Sounds  the  2250  audio  alarm,  an  unpleasant  whistle, 
for  about  two  seconds. 

USAGE 


Standard  Calls 

CALL  ALARMG(J) 

Z  is  the  mode  set  array. 

MISCELLANEOUS  INFORMATION 


Written  in  OS/360  assembly  language. 
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CHANG:  Identifies  the  IDs  that  have  had 

Character  Changes 


PURPOSE 

Identifies  which  displays  have  had  characters  changed 
by  the  RAND  Tablet.  It  also  identifies  which  IDs  exist. 

USAGE 


Standard  Calls 

CALL  CHANG(Z,0,ID,ICHN6) 

1)  Z  is  the  mode  set  array. 

2)  ID  is  the  ID  of  the  display. 

3)  ICHNG  indicates  the  changes  on  return. 

If  ICHNG  =  0,  no  change. 

=  1,  characters  were  changed. 


Special  Calls 

The  following  special  call  causes  the  system  to  return 
an  ID  and  its  changes  to  the  user.  This  call  also  de¬ 
termines  which  IDs  exist. 

CALL  CHANG (ZJ, ID, ICHNG) 

1)  Z  is  the  mode  set  array. 

2)  ID  must  contain  the  last  ID  retrieved.  It  will 
contain  the  next  ID  on  return.  Set  ID  =  0 

to  retrieve  the  first  ID.  ID  will  equal  zero 
on  return  when  all  IDs  have  been  retrieved. 

3)  ICHNG  indicates  the  change  to  the  ID  as  above. 
MISCELLANEOUS  INFORMATION 


Written  in  0S/360  assembly  language. 
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CON ^yT6j_Converts_nTax£Cjters__to_J^ 


PURPOSE 

Converts  a  character  string  to  a  real  or  Integer 
number . 

USAGE 

Standard  Calls 

CALL  CONVTG(?.IFMT,IW,IN,OUT) 

1 )  Z  Is  the  mode  set  array. 

2)  I FMT  specifies  the  conversion  to  be  done. 

If  I FMT  *  1,  convert  to  Integer. 

*  2,  convert  to  real  . 

*  3,  convert  to  real  If  a  decimal 

point  or  E  Is  encountered; 
otherwise,  convert  to  Integer. 

3)  IW  specifies  the  number  of  characters  In  the 
Input  string. 

4)  IN  Is  the  address  of  the  character  string  to 
convert. 

5)  OUT  will  contain  the  converted  Integer  or  real 
number. 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 


CURSRG :  Inserts  or  Removes  Cursor 


PURPOSE 

Inserts  the  cursor  Into  or  removes  It  from  unprotected 
characters  on  the  2260  scope.  The  cursor  appears  as  a  dash 
under  a  character  and  Indicates  where  the  next  keyboard 
character  will  be  typed  In.  Once  displayed.  It  may  be 
moved  around  with  the  keyboard. 

USAGE 


Standard  Calls 

1)  To  Insert  the  cursor, 

CALL  CURSRG(I, O.ID.IC.) 

a)  Z  Is  the  mode  set  array. 

b)  ID  Is  the  ID  of  the  display  In  which  to 
Insert  the  cursor. 

c)  IC  Is  the  specific  character  position  within 
the  display  at  which  to  Insert  the  cursor. 
(The  characters  must  be  unprotected  for  the 
cursor  to  be  Inserted.)  1  <  IC  <  N,  where 

N  Is  the  r-mbcr  of  characters  In  the  display. 

2)  To  remove  the  cursor, 

CALL  CURSRG(I J ,T5,rC) 

a)  Z  Is  the  mode  set  array. 

b)  ID  contains  the  ID  of  the  display  contain¬ 
ing  the  cursor.  (If  ID  ■  0,  the  cursor  Is 
not  on . ) 

c)  IC  contains  the  character  position  upon 
which  the  cursor  rests.  1  <  I  <  N,  where 
N  Is  the  number  of  characters  In  the 
display. 
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3)  To  find  the  cursor, 

CALL  cursrg(7,£,Td,Tc) 

a)  Z  is  the  mode  set  array. 

b)  ID  contains  the  ID  of  the  display  contain¬ 
ing  the  cursor.  (If  ID  =  0,  the  cursor 

is  not  on.) 

c)  IC  contains  the  character  position  upon 
which  the  cursor  rests.  1  <.  I  <.  N , 

where  N  is  the  number  of  characters  in  the 
display. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language. 


-99- 


DEBUG:  Debugging  Aid 


PURPOSE 

Provides  the  user  a  simple  call  to  display  selected 
variables  on  the  2250  scope.  After  the  variables  are  dis¬ 
played,  DEBUG  waits  for  the  user's  next  input  action-- 
light  pen.  Tablet  pen,  function  keys,  or  keyboard.  DEBUG 
then  erases  the  display  and  returns. 

USAGE 


Standard  Calls 

CALL  DEBUG (Z,.  VI  ,V2 ,V3 ,V4  ,V5  ,V6) 

1)  Z  is  the  mode  set  array. 

2)  VI ,V2  , . . . ,V6  are  the  variables  to  display.  They 
may  be  real  or  integer;  DEBUG  will  determine 
which  and  display  them  in  the  proper  format.  If 
the  user  has  fewer  than  six  variables  to  dis¬ 
play,  he  should  pad  the  call  with  dummy  variables. 
If  he  has  more  than  six,  he  must  make  two  calls. 

MISCELLANEOUS  INFORMATION 

Written  in  FORTRAN  IV.  DEBUG  is  meant  to  be  as  simple 
to  use  as  possible;  thus,  it  is  inflexible. 
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FMTSG:  Converts  Numeric  Data  to  Characters 


PURPOSE 

Converts  a  number,  either  real  or  integer,  into  a 
character  string. 

USAGE 


Standard  Calls 

CALL  FMTSG(Z.IFMT.IW. ID, VALUE. CHARS) 

1)  Z  is  the  mode  set  array. 

2)  I FMT  specifies  the  type  of  number  to  convert. 

If  I FMT  ■  1,  convert  an  integer  number  to 
I  format. 

a  2,  convert  a  real  number  to  F  format. 

*  3,  convert  a  real  number  to  E  format. 

3)  IW  stipulates  the  field  width  of  the  converted 
number . 

4)  ID  designates  the  number  of  decimal  places 
(ID  *  0  if  I FMT  =  1). 

5)  VALUE  is  the  number  to  convert.  It  may  be 
either  real  or  integer,  depending  upon  the 
value  of  I FMT . 

6)  CHARS  contains  the  character  string  upon  return. 
CHARS  must  be  an  array  large  enough  to  contain 
IW  characters. 

MISCELLANEOUS  INFORMATION 


Written  in  FORTRAN  IV.  If  the  number  can  not  be 
converted,  CHARS  will  contain  asterisks  (*)  on  return. 
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GTIHEG:  Returns  the  Time  of  Day 


PURPOSE 

Returns  the  time  of  day. 


USAGE 

Standard  Calls 

CALL  GTIMEG(I,HYjnm 

1)  Z  is  the  mode  set  array. 

2)  DAY  will  contain  the  day  of  year  i 
justified  EBCDIC  characters. 

3)  TIME  will  contain  the  time  of  day, 
number.  In  seconds. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language. 


n  three  left 

as  a  real 
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SETFKG:  Sets  the  Function  Keys 


PURPOSE 

Sets  the  function  keys,  numbered  from  1  to  32.  All 
32  function  keys  and  2**7  forms  overlays  are  normally 
available  to  the  user.  However,  one  forms  overlay  has  been 
reserved  for  system  usage.  When  it  is  in  place,  only  keys 
1  through  29  are  available  to  the  user.  Keys  30  through  32 
are  reserved  for  haraccpy.  The  system  forms  overlay  has 
notch  7  Intact. 

USAGE 


Standard  Calls 

CALL  SETFKG( Z  ,N . KEYS ) 

1)  Z  Is  the  mode  set  array. 

2)  N  Is  the  number  of  keys  to  turn  on  ( 1  <.  N  <  32). 

3)  KEYS  is  an  array  containing  the  specific  function 
keys  to  turn  on.  KEYS  Is  an  integer  array,  and 
must  be  >  N.  All  function  keys  not  specified 

In  array  KEYS  will  be  turned  off.  Integer 
values  of  zero  in  the  array  are  ignored.  To 
turn  specific  keys  on  or  off,  do  the  following: 

DIMENSION  KEYS( 32) 

DO  100  I  =  1  ,  32 
100  KEYS(I)  =  I 

To  turn  key  I  off,  set  KEY(I)  =  0  and  call  SETFKG . 
To  turn  key  I  on,  set  KEY(I)  =  I  and  call  SETFKG. 

Special  Calls 


1)  To  turn  all  function  keys  off, 
CALL  SETFKG(Z,0,0) 


/ 
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2)  To  use  a  32-bit  word  as  a  mask  for  turning  the 
function  keys  on  {as  might  be  done  in  assembly 
language) , 

CALL  SETFKG( Z .0 .MASK) 

a)  Z  is  the  mode  set  array. 

b)  MASK  is  a  full  word.  Any  1  bits  in 
positions  0  through  31  of  the  word 
cause  the  corresponding  function  keys, 
1  through  32,  to  be  turned  on.  All 
others  will  be  turned  off. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language. 
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SNAPG :  2250  Hardcopy 


PURPOSE 

SNAPG  reads  In  the  2250  buffer,  converts  the  2250 
commands  to  S-C  4060  meta-language  format,  and  writes  them 
out  onto  an  output  device  (normally  tape  or  disk).  The 
S-C  4060  then  produces  the  hardcopy. 

USAGE 


Standard  Calls 

CALL  SNAPG ( DCBZZ , ICODE ) 

1)  DCBZZ  must  be  defined  as  an  external  within  the 
calling  program,  using  the  following  FORTRAN 
statement: 


EXTERNAL  DCBZZ 


2)  ICODE  specifies  the  action  to  be  taken. 


If  ICODE 


0,  make  a  copy  and  advance  frame. 

1,  make  a  copy  but  do  not  advance 
frame . 

2,  open  output  file.  (Must  be  done 
before  any  other  call.) 

3,  close  output  file.  (Must  be 
last  call.) 

4,  set  for  8  1/2  *  11  hardcopy 
(11  x  14  Is  assumed). 

5,  reset  for  11  *  14  hardcooy. 


MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language.  A  DD  card  must 
be  Included  to  define  the  output  data  set  as  follows: 

//GO . SC4060ZZ  DD  DSNAME*SC00PS ,DISP-(MOD,PASS) 

This  card  Is  not  required  If  the  catalogued  graphics  pro¬ 
cedures  are  used. 
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WTIMEG :  Pauses  for  a  Specified  Length  of  tl. 
PURPOSE 

Suspends  execution  of  the  user's  program  for  a 
specified  length  of  time  by  putting  the  computer  Into  the 
KAIT  state.  WTIMEG  Is  particularly  useful  for  regulating 
the  rate  of  display  movement. 

USAGE 

Standard  Calls 

CALL  WTIMEG(Z.SEC) 

1)  Z  Is  the  mode  set  array. 

2)  SEC  Is  the  time.  In  seconds,  to  pause. 

MISCELLANEOUS  I NFQRMAT t n n 

Written  In  0S/360  assembly  language. 


-107- 


/ 


Appendix  A 

SAMPLE  PROGRAMS 


This  section  contains  a  few  simple  sample  programs. 

SAMPLE  PROGRAM  1 

//TEST  JOP  18273,0.88  750  PAL 

//  fcXtC  XfORTCLG 
//FORT.SYSIN  DU  * 

C  SINCE  THIS  IS  A  SAMPLE  PROGRAM,  DON'T  LOOK  FOR  ANY  GREAT  SIGNIFICANCE 
C  IN  THE  OATA  THAT  IS  PLOTTED. 

C  DIMENSION  THE  MODE  SET  ARRAY. 

DIMENSION  Z I  200 ) 
dimension  X<  100 I , Y ( 1001 
c  initialize  igs  with  a  call  in  mudesg. 

CALL  M0DESG(Z,0) 

C  COMPUTE  SOME  POINTS  TO  PLOT. 

DO  100  I  *  1,100 
X( I)  *  (1-11*10 

100  Y ( I  I  =  (  1-11*10 

C  THE  DEFAULT  PLOTTING  SYMBOL  IS  A  POINT.  I  DON'l  WANT  A  POINT  FOR  MY 
C  PLOT  SYMBOL  SC  I  WILL  CHANGE  IT  WITH  A  MODE  SET  CALL. 

CALL  SETSMGIZ,B4,lHH 
C  NOW  1  WILL  PLOT  4'S  INSTEAD  OF  POINTS. 

C  GET  AN  ID  TO  IDENTIFY  THE  DISPLAY. 

CALL  GETIDG(Z.in) 

C  I  WILL  NOW  CALL  ON  GRAPHG  TO  DRAW,  LAREL,  AND  TITLE  THE  GRAPH,  AND 
C  PLOT  1024  POINTS  OF  X,Y  COORDINATES. 

CALL  GKAPHGIZ,  1 00 , X  ,  Y  ,  1 4 , l 4HT 1  ME-- l  N  HOURS , l 8 , 1  BHD  I S T ANCE-- I  N  MIL 
IES,  16, 16HTIME  VS  DISTANCE! 

C  COMPUTE  SOME  MORE  POINTS  TO  PLOT  ON  THE  SAME  GRAPH. 

DO  200  I  =  1,100 
X(I!  *  ( 100-1  )*10 
200  Y(  I)  *  <  I - 1  I ♦  10 

C  I  WANT  TO  LABEL  THE  TOP  AND  RIGHT  SIDE  OF  THE  GRID.  I  MUST  MAKE  THE 
C  APPROPRIATE  MODE  SETS  FOR  THE  LABEL  POSITION. 

CALL  SE  T SMG ( Z , 104, 1 • I 
CALL  SETSMGIZ, 105,1. ) 

C  I  WILL  NOW  LABEL  THE  X-AXIS. 

CALL  LABELGIZ, 0,200. ,0,4) 

C  AND  LIKEWISE  FOR  THE  Y-AXIS. 

CALL  LABELGIZ.  1,100. ,0,4) 

C  THEN  TO  ADD  SOME  TITLES. 

CALL  T I TLEG' Z,21,21HDIS TANCC--IN  FURLONGS , W , 1 9HT I  ME  —  I N  FORTNIGHT 
IS, 0,0) 

C  I  SHOULD  CHANGE  THE  PLOT  SYMBOL  SO  I  WON'T  CONFUSE  MY  DATA. 

CALL  SE T  SMG ( Z  «  84, 1HX ) 

C  AND  THEN  PLOT  THE  DATA. 

CALL  POINTGI Z, 100, X,Y) 

C  NOW  I  WILL  AWAIT  SOME  ACTION  FROM  THC  2250. 

CALL  WA IT SGI Z,  l, I CHECK, IVAL,XX,YY) 

C  I  AM  DONE.  I  MUST  CALL  EXITG  TO  TERMINATE  THE  GRAPHIC  OUTPUT. 

CALL  EX  I  TGI Z ) 

CALL  EXIT 
END 

/* 
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SAMPLE  PROGRAM  2 

//TEST  JOH  (82/3,0,68750  PAL  49 

//  EXEC  XFORTCLG 
//FORT.SYSIN  OD  * 

C  THIS  SAMPLE  PROGRAM  IS  COPIED  FROM  THE  "GRAPHIC  PROGR 
C  FOR  FORTRAN  IV,"  C27-6932-0,  PAGES  85-90. 

C  BEGIN  PROGRAM 

C  SET  UP  DIMENSION  STATEMENT  FOR  VARIO 

DIMENSION  Z ( 200) , C I RX ( 8 ) , C I R V ( 8 I ,L ABEL  I  32 ) , I D ( 18) 
C  INITIALIZE 

CALL  MQDkSG(Z.O) 


PROGRAMMING  SERVICES 


VARIOUS  ARRAYS  USED. 


DEFINE  OUTER  LABELS  AND  STORE  THEM  IN  LABEL. 
DATA  LABEL / *NUMINUM?NUM3NUN4NUM5NUM6NUM7NUM8* /, X/*  X  •/ 
SET  LOCATION  TO  CENTER  OF  SCREEN. 

CX*2067.0 

CY*2047.0 


SET  CHARACTER  MODE  FOR  LARGE  SIZE,  PROTECTED  IS 
ASSUMED. 

CALL  SE  T SMG ( Z ,45, 1 . 5 ) 

GET  AN  10  FOR  CENTER  X.  10(1)  *  CENTER  X 
CALL  G£  T I DG ( Z , 10 ( 1 ) ) 

DISPLAY  THE  CENTER  X 

CALL  LEGNDG (Z,CX«CY«1,X) 

COMPUTE  COORDINATES  FOR  X»S  OF  OUTER  CIRCLE. 

PLACE  THEM  IN  THE  CIRX  AND  CIRY  ARRAYS  FOR  WHICH  MAIN 
STORAGE  HAS  BEEN  ALLOCATED  BY  DIMENSION  STATEMENT. 

R* 1200 . 0 
C*3. 151596/ 180 
THE  TA*  55.0 
DO  10  1*1,8 

RADI  AN*  THE  T  AFLOAT  (  I  )*C 
C I RX ( I ) *CX+R*COS(RAOIAN ) 

10  CIRY( I )«CY*R*SIN(RAQI AN ) 

SET  CHARACTER  MODE  FOR  BASIC  SIZE. 

CALL  SE  TSMG ( Z , 45, 1. ) 

GENERATE  THE  OUTER  X»S.  CALCULATE  X-CCORDINATE 
OF  LABEL  ASSOCIATED  WITH  THAT  X.  GENERATE  LABEL  AND 
TURN  IT  OFF.  00  THIS  8  TIMES  TO  COMPLETE  CIRCLE. 

DO  50  NUM* 1 , B 

GET  AN  10  FOR  OUTSIDE  X.  10(2)  -  10(9)  *  OUTSIDE  X. 

CALL  GET10G(Z,ID(NUM+1) ) 

50  CALL  LEGNDG(Z«C1RX( NUM ) , C I R Y ( NUM ) , 1 , X ) 

GET  AN  10  FOR  LABELS.  10(10)  *  LABEL. 

CALL  GET10G(Z, 10(10)) 

00  60  NUM* 1,8 

CXNUM  *  CIRX(NUM)  ♦  100. 

60  CALL  LEGNDG ( Z , CXNUM, C I RY(NUM),6,LAREL( NUM) ) 

I  URN  OFF  LABELS. 

CALL  0ISPLG(Z,2,1,ID( 10) ) 

GENERATE  CIRCLES  AROUND  OUTER  X’S  ANO  TURN  THEM  OFF. 
00  110  NUM* 1,8 

GET  AN  ID  FOR  THE  CIRCLES.  10(11)  -  10(18)  *  CIRCLE. 

CALL  GETIOG(Z, I D( NUM* 10) ) 

110  CALL  CIRARG(Z,CIRX(NUM),CIRY(NUM),200.,0.,360.) 

TURN  OFF  ALL  CIRCLES. 

CALL  DI SPLG( Z, 2,8, 10(11)) 

WAIT  FOR  AN  ATTENTION  TO  OCCUR. 

200  CALL  WA1 TSG ( Z , 1 , (CHECK,  I VAL • X , Y ) 


AROUND  OUTER 


TURN  THEM  OFF. 
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C  IF  LIGHT  PEN  ATTENTION,  GO  10  210. 

IF  I ICHfcCK.EQ.  1  )  GO  TO  210 

C  IF  PROGRAMMED  FUNCTION  KEY  ATTENTION,  GO  TO  235. 

IF  I ICHECK.EO. 3 1  GO  TO  235 
GO  TO  200 

C  IF  LIGHT  PEN  HIT  CENTER  X,  GO  TO  221 

210  IF  (IVAL-IO(l)I  201,221,201 
C  IF  LIGHT  PEN  HIT  OUTER  X,  GO  TO  222 

201  I F I  I VAL- 10(91  )  222,222,202 

C  IF  LIGHT  PEN  HIT  CIRCLE,  GO  TO  230 

C  IF  LIGHT  PEN  HIT  LABEL,  GO  TO  225 

202  IF  I IVAL-IOI 10) )  225,225,230 

C  HERE  IF  CENTER  X  HIT.  TURN  ON  LABELS. 

221  CALL  DISPLGIZ, 3,1,10(101) 

GO  TO  200 

C  HERE  IF  OUTER  X  HIT.  TURN  ON  CIRCLE  AROUND  IT. 

222  1  VAL  *  1 VAL  ♦  9 

CALL  DISPLGIZ, 3, l.IVAL) 

GO  TO  200 

r.  here  if  label  hit,  turn  off  all  labels. 

225  CALL  DISPLGI Z,2,  1, IDI 1011 
GO  TO  200 

C  HERE  IF  CIRCLE  HIT.  TURN  OFF  CIRCLE. 

230  CALL  DISPLGI Z ,2, 1  ,  I VAL 1 
GO  TO  200 

C  HERE  IF  FUNCTION  KEY  HIT.  IF  KEY  l  HIT,  GO  TO  240. 

C  IF  KEY  2,  GO  TO  250.  IF  KEY  3,  GO  TO  260 

235  IF  I IVAL-GT. 3)  GO  TO  200 
GO  TO  (240,250,260) ,IVAL 

C  HERE  IF  KEY  1  HIT.  TERMINATE. 

240  CALL  EXITGIZ) 

CALL  EXIT 

C  HERE  IF  KEY  2  HIT.  TURN  OFF  ALL  CIRCLES. 

250  CALL  DISPLGIZ, 2, 8, IDI 11 ) ) 

GO  TO  200 

C  HERE  IF  KEY  3  HIT.  TURN  ON  ALL  CIRCLES. 

260  CALL  DISPLGIZ, 3, 8,10111)) 

GO  TO  200 
END 

/* 
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ERASE  ALL  UNWANTEO  TEXT. 

3000  CALL  DISPLG(Z,0»1,IDTXT) 

IF  Ht  01 ON*  T  SPECIFY  ANY  Cl  TIES*  GIVE  HIM  THE  DEFAULT  ONES. 

IF  (ICITY.EQ.OI  ICITY  *  10 
CONVERT  LONG  t  LAT  TO  RAOIAN*. 

00  3010  I  =  WICITY 

ALONG!  1  5  «  (ALONG!  D-90.  5*0.01745329 
3010  ALAT(l)  *  ALAT! 15*0.01745329 

SET  UP  EACH  CITY  AS  A  BUTTON.  EACH  BUTTON  WILL  HAVE  4  CHARACTERS  SO 
WE  MUST  MAKE  A  MOPE  SET  CALL. 

CALL  SETSMG  t  Z  *  95, 4. 5 

WE  WANT  TO  SPECIFY  THE  X,Y  OF  EACH  BUTTON  SO  WE  NEEO  ANOTHER  MODE  Sr.  I. 

CALL  SETSMG ( Z ,94*  1. 5 
NOW  WE  CAN  GENERATE  THE  BUTTONS. 

CALL  GET  I DG ( Z  « 1 OC 1 T  5 

CALL  BUTTNG! Z ,XC,YC, I C I TY.CITY.l ) 

•***************************SET  UP  TO  ORAW  IN  ROUTES************************ 

GIVE  HIM  THE  OPTION  OF  STARTING  OVER. 

CALL  GET  I DG( Z • I OOVR  5 

CALL  LEGNDGIZ, 1200. *50. ,24, 'TOUCH  HERE  TO  START  OVER* 5 
PUT  OUT  THE  EXPLANATION  OF  WHAT  TO  00  NEXT. 

CALL  GETIDGIZ. IDTXT) 
lDARY(l)  *  IOTXT 

CALL  LEGNDG(Z,0., 4095. ,51, ’FABULOUS:  TRACE  IN  A  ROUTE  YOU  WOULD  LI 
IKE  TO  TRAVEL  *  5 
DISPLAY  DISTANCE  AND  TIME. 

CALL  LEGNPG(Z,0. ,300.,10,*OISTANCE  «*> 

CALL  LEGNDG! Z.0.,400.  ,6. ’TIME  =  *) 

CALL  GET1DGIZ, IOSPJ 

CALL  LEGN0G(Z,0. ,200. ,29, ’WRITE  SPEED,  IN  MPH,  IN  HERE:*) 

DATA  SPEED/ 1000. / 

MAKE  SPEED  UNPROTECTED  CHARACTERS  SO  WE  CAN  WRITE  IN  NEW  VALUES. 

CALL  SETSMG ( Z , 92  »  l  •  I 
CALL  GET  I OC ( Z • 1  ON  5 

CALL  NUMBRG I Z , l 726. ,200. , 10. 3, SPEED  5 
MAKE  A  SENSITIVE  AREA  AROUND  THE  SPEED. 

CALL  ARE ASGIZ,  1,1726.  ,  150., 2236.  ,2'i0.  ,115 
PUT  OUT  NUMERIC  VALUES  FOR  DISTANCE  AND  TIME. 

DATA  TIME/O. /,DI ST/O./ 

CALL  GET1DG! Z, IDD) 

CALL  NUMBP.G(Z,650.  ,300.  ,  10.  3,01  ST  5 
CALL  NUMBKG! Z, 650., 400. , 10. 3, TIME  5 
RESET  TO  PROTECTED  OATA. 

CALL  SETSMG ( Z • 92 ,0. 5 
SET  ID  FOR  ROUTE  *  0. 

1DRT  ■  0 
GO  TO  3020 

********* *******************TR ACE  IN  THE  ROUTE******************* 

ERASE  ANY  OLD  INK. 

3015  CALL  0ISPLG(Z,0,1, IOINK) 

SET  TIME  ANO  OISTANCE  BACK  TO  ZERO. 

3020  TIME  »  0. 

DIST  ■  0. 

LCITY  WILL  TELL  US  WHICH  CITY  WE  WERE  JUST  AT. 

LCITY  ■  0  _  _ 


n  n  n  n 
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C  NOW  * A 1  !  FOK  A  PEN  DOWN 

CALL  WA1TSG!Z,0,  1,IVAL,X,Y) 

C  IF  HI  IS  OONfc t  GO  TO  5000. 

IF  (  IVAL.EO.IOBTI  GO  TO  5000 
C  IF  nfc  WANTS  TO  START  OVER,  GO  TO  6000 
H  (  IVAL.EU. IOOVR I  GO  TO  6U00 
C  ERASL  ANY  OLD  ROUTING. 

CALL  01SPLG(Z,0, l , lORT) 

C  AND  GET  AN  ID  FOR  A  NEW  ONE. 

CALL  GE  T I DG ( 2 , 1  OR  T I 
C  SEE  IF  Hb  TOUCHED  A  BUTTON. 

CALL  PUSHG(2,X,Y, ISEUI 

C  IF  ML  WANTS  TO  CHANGE  THE  SPEED,  GO  TO  4000. 

IF  (  ISEQ.EQ.il  I  GO  TO  4000 

C  OTHER WISE,  POSITION  THE  BEAM  TO  THIS  X,Y  LOCATION. 

10 25  CALL  GETIDGI2. 10INKI 
CALL  LINESG(2,0,X,Y1 
C  WAS  A  CITY  HIT?  IF  SO,  GO  TO  3050 
3030  IF  ( ( ISEQ.GE.il .AND. (ISEQ.LE.(ICITY)I)  GO  TO  3050 
C  OTHERWISE,  GET  NEXT  X,Y. 

3040  CALL  GSTATGI2.0, IVAL.X,  Yl 

C  IF  PEN  COMES  UP,  GO  TO  3015  TO  ERASE  INK  AND  AWAIT  PEN  DOWN. 

IF  (  1VAL.EQ.0)  GO  TO  3015 
C  DRAW  A  LINE  TO  THIS  X,Y 
CALL  LINESG(2,1*X,Y) 

C  SEE  IF  A  CITY  WAS  HIT. 

CALL  PUSHGI2.X.Y, ISEQI 
GO  TO  3030 

C  HERE  IF  A  CITY  IS  HIT.  IS  IT  A  NEW  CITY?  IF  NOT,  IGNORE  IT 
3050  IF  I  I  SEQ.EQ.LC I T Y I  GO  TO  3040 
C  IF  IT  IS  THE  FIRST  CITY,  GO  ON. 

IF  (LCITY.EO.O)  GO  TO  3070 

COMPUTE  TIME  AND  Dl ST ANCE **••**•* 


ERASE  INK. 

CALL  DISPLG(2,0,1,IUINK) 

C  DRAW  IN  A  STRAIGHT  LINE  SHOWING  THE  ROUTING. 

CALL  SEGMTGI2, l ,XC(LCITYI  , YCILCI TYl ,XC( ISEQI ,YC1 ISEQI I 
C  COMPUTE  NEW  DISTANCE  TRAVEL  TIME. 

D  =  ABS( ALATI ISEQI-ALAT (LCI TYI I 
IF  ( D.LE.3. 14159271  GO  TO  3060 
D  =  6.28319  -  0 

3060  D  *  ARC OS (COS  I  ALONG (LCI TYI I *COS I  ALONG  I ISEQI I *COS! D)  ♦ 

1  SI N( ALONG! LCI TYI I *SI  N( ALONG ( I SEQ I  1)43441.594 
DIST  *  GIST  ♦  D 
r I  ME  «  TIME  ♦  0/ SPEED 
Dl MF  NS  I  ON  CHARS! 5) 

C  CONVtRT  NUMERIC  DATA  TO  EBCDIC 

CALL  FMT SG (2,2, 10, 3«0!ST, CHARS) 

C  AND  REPLACE  OLD  VALUE  ON  SCOPE. 

CALL  GPCHRGIZ, 1, I DO, l, 10, CHARS) 

C  DO  THt  SAME  FO*  TIME. 

CALL  FMT SG (2, 2,10, 3,TIME, CHARS) 

CALL  GPCHRG ! 7 , 1, 100,11, 10, CHARS) 

LCITY  =  I SEQ 

C  GO  CHECK  NEXT  STOP  ON  THE  ROUTE. 

(.U  TO  3025 
307U  LCI! Y  =  I SEQ 


oooo  o  o  o  o  o  o  o  oooo 


GO  TO  3040 


***••••* ******************* WRITE  IN  NEW  SPEED*** ************* ********♦' 

HERE  TO  CHANGE  THE  SPEED.  TURN  OFF  UNWANTEO  TEXT. 

000  CALL  DISPLGIZt2*2*I OARY ) 

TELL  HIM  HOW  TO  EXIT. 

CALL  GET IDGI Z  » I DT ) 

CALL  LEGNDGI Z 1 0. 1 4095. t  49* 'SWEEP  THE  PEN  ACROSS  THE  TABLET  WHEN  YO 
IU  ARE  DONE* ) 

RECOGNIZE  THE  CHARACTERS  HE  IS  WRITING  IN. 

CALL  CHARG(Z) 

RETRIEVE  THE  NEW  SPEEO. 

CALL  GPCHRG (Z*0*I ON »1*10» CHARS) 

CONVERT  EBCOIC  TO  FLOATING  POINT. 

CALL  C0NVTG(Z*2# 10#CHARS» SPEEO) 

DELETE  MESSAGE. 

CALL  DISPLGU.O*  t.IDTI 
ANO  TURN  OTHER  MESSAGES  BACK  ON. 

CALL  01 SPLG( Z*3*2»IDARY) 

GO  TO  3020  TO  CONTINUE 
GO  TO  3020 


EXIT 


HERE  WHEN  OONE. 

5000  CALL  EXITG(Z) 

RETURN 

C  HERE  TO  START  OVER. 

6000  CALL  01 SPLG( Z  *0*0 » 0 ) 
GO  TO  100 
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Appendix  B 
IGS  ERROR  CODES 


This  table  describes  the  meaning  of  each  IGS  error 
message.  When  an  error  Is  detected  by  a  graphic  subroutine, 
ERRZZ  Is  called  to  print  out  an  error  message  that  reads  as 
follows:  BAD  BAD  BAD,  ERROR  NO.  NO  =  VALUE ( I  Format) 
VALUE(F  Format)  VALUE(A  Format).  After  the  message  Is 
printed,  the  job  continues  in  a  normal  manner. 


Number 

Subroutine 

Value 

Description 

1 

GETSMG 

NO 

Illegal  mode  set  number  In  call. 

2 

LEGNDG 

N 

Illegal  character  count  in  call. 

3 

LINESG 

NO 

1 1 1  egal  number  in  call. 

4 

METAZZ 

- 

2250  buffer  Is  full  . 

5 

NUMBRG 

FMT 

1 1 1  egal  format  In  call. 

6 

OBJCTG 

- 

Max  x  or  y  LE  min  x  or  y  in  call. 

7 

METAZZ 

- 

No  call  to  GETIDG. 

8 

POINTG 

N 

1 1 1  egal  number  In  call. 

9 

SEGMTG 

N 

1 1 1  egal  number  In  call. 

10 

DATAG 

- 

Too  many  arguments  In  call. 

11 

MLTPLG 

NLINES 

Illegal  number  In  call. 

12 

GRIDG 

- 

Grid  too  small  to  draw. 

13 

LABELG 

- 

1 1  legal  format  In  call. 

14 

TITLEG 

- 

Illegal  arguments  in  call. 

15 

SETUPG 

- 

Illegal  arguments  In  call. 

16 

SUBJEG 

- 

Max  x  or  y  EQ  mi n  x  or  y . 

17 

LABELG 

- 

Illegal  arguments  in  call. 

18 

LABELG 

- 

Grid  too  small  to  1 abel . 

19 

LABELG 

- 

Zero  subject  space. 

20 

GRIDG 

- 

Illegal  arguments  in  call. 

21 

SETUPG 

“ 

Subject  (object)  space  too 
small  to  draw  a  grid. 

22 

SETUPG 

- 

Densl ty  LE  0. 

23 

SETSMG 

N 

Illegal  mode  set  number  In  call. 

24 

SETUPG 

- 

Grid  will  not  fit  on  page. 

25 

TEXTG 

N 

Illegal  character  count  In  call. 

26 

LABELG 

- 

Labels  will  not  fit  on  page. 

27 

METAZZ 

- 

No  Initialization  call  to  MODESG. 

28 

GRAPHG 

N 

Illegal  argument  In  call. 

29 

SUBJEG 

- 

Minus  value  for  log  grid. 

30 

SETUPG 

- 

Too  many  cycles  In  log  grid. 

32 

SCALZZ 

X 

Bad  x-coordlnate . 

33 

SCALZZ 

Y 

Bad  y-coordlnate. 

35 

TITLEG 

• 

Subject  (object)  space  too 
small  to  title  grid. 
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Appendix  C 

SUMMARY  OF  2250  GRAPHIC  FEATURES 


Item 

Value 

Screen  size 

12"  x  12" 

Raster  size 

4095  x  4095 

Character  set 

63  characters 

A-Z  0-9 
t)  :  .  $  ,  # 

<  *  %  '  9 
(  )  -  + 

;  >  s  / 

?  "  - 

Basic  character  size 

1.0  x  normal 

Number  lines/page 

52 

Number  characters/1 1 ne 

74 

Character  spacing  (envelope 

56  raster  units 

width) 

Line  spacing  (envelope 

80  raster  units 

height) 

Large  character  size 

1.5  x  normal 

Number  lines/page 

35 

Number  characters/1 1 ne 

49 

Character  spacing  (envelope 

84  raster  units 

width) 

Line  spacing  (envelope 

120  raster  units 

hel ght) 
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Apperidlx  D 

CORE  STORAGE  ALLOCATION 


All  FORTRAN  subroutines  are  compiled  under  Level-G  FORTRAN. 


Storage 

Is  gl 

ven  1  n 

bytes . 

NAME 

DEC 

HEX 

NOTES 

ALARMG 

LS8 

9E 

AREASG 

806 

326 

BUTTNG 

950 

386 

CHANG 

240 

FO 

CHARG 

706 

2C2 

CIRARG 

L  718 

686 

CONVTG 

1620 

5F0 

CURSRG 

620 

26C 

DATAG 

2986 

BAA 

DEBUG 

912 

390 

DISPLG 

1068 

422 

EXIIG 

240 

FO 

FMTSG 

2536 

968 

GETIOG 

2  32 

E  8 

GETSHG 

534 

216 

GPCHRG 

940 

3AC 

GPXYG 

1672 

688 

GRAPHG 

1364 

554 

GK  IDG 

4054 

FD6 

GSTATG 

564 

234 

GTIMEG 

248 

F8 

LABELG 

4228 

1084 

I.EGNUG 

516 

204 

LINESG 

686 

2AE 

MLTPLG 

896 

376 

MOOESG 

432 

180 

NUMBRG 

1306 

5 IA 

OBJCTG 

1208 

4B8 

POINTG 

504 

IF  8 

PUSHG 

584 

248 

RECOG 

2128 

850 

RSETMG 

1028 

404 

SEGMTG 

536 

218 

SETFKG 

412 

19C 

SETUPG 

4280 

1088 

SETSMG 

1642 

66A 

SNAPG 

1440 

5A0 

SUBJEG 

1582 

62E 

IEXIG 

472 

108 

TITLEG 

2660 

A64 

MAI T  SG 

748 

2EC 

WTIMfcG 

220 

OC 

BUFFZZ 

204 

CC 

CBUTZZ 

420 

1A4 

CHARZZ 

13700 

3584 

CTAOZZ 

532 

214 

NOT  RESIDENT-LINK 

HACRO 

USED 

FOR 

CALL 

C225ZZ 

888 

378 

NOT  RESIOENT-L INK 

MACRO 

USED 

FOR 

CALL 

ERRZZ 

380 

17C 

FRUTZZ 

548 

224 

GETCZZ 

160 

AO 

GNXYZZ 

932 

3A4 

IFMZZ 

372 

174 

METAZZ 

2316 

906 

PACKZZ 

0 

0 

PUTCZZ 

158 

9E 

PZZ 

468 

104 

REPKZZ 

646 

286 

SCALZZ 

1186 

4A2 

TABLZZ 

866 

36? 

TKAPZZ 

700 

236 

UNSLZZ 

744 

2E8 

XMODZ 

290 

122 

XNOKMZ 

308 

134 

YMOOZ 

290 

1 22 

YNORMZ 

308 

134 

SHOULD  BE  IN  MAIN  LINK  OF  AN  OVERLAY. 
INCLUDED  IN  SNAPG. 


NOT  RES10ENT-L INK  MACRO  USED  FOR  CALL. 
SHOULD  BE  IN  MAIN  LINK  OF  AN  OVERLAY. 
MUST  BE  IN  MAIN  LINK  OF  AN  OVERLAY. 
MUST  BE  IN  MAIN  LINK  OF  AN  OVERLAY. 
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Appendix  E 


SUBROUTINE 

CROSS-REFERENCE 

NAME 

USES 

USED  BY 

ALARMG 

AREASG 

CBUTZZ.UNESG 

BUTTNG 

CHANG 

CBUTZZ.lEGNDG. GNXYZZ 

CHARG  CHARZZ 

CIKARG  LINESG, POINTG 

CONVTG  GETCZZ 

CURSRG 

DATAG  ERRZZ.GE  T IDG, CHARG, 

LEGNUG»GPCHRG»NUMBRGt 

CONVTG,GNXYZZ,OISPLG, 

CURSRG 

DEBUG  GET  IDG, NUMBRG, UISPLG.WA1 TSG 

DISPLG 

EXITG  C2Z5ZZ tCTABZZ 

FMTSG  IFMZZiGETCZZtPUTCZZ 

GET  IDG 

•1ETSMG  ERRZZ 

PCMRG 

PXYG  SCALZZt UNSCZZ 

UPHG  SUBJEG, SETUPG, GRIDG.LABELG, 

TITLEG.POINTG, ERRZZ 
.IDG  SETSMG, MLTPLG, SEGMTG, 

ERRZZ 

5TATG  UNSCZZ 


TIMEG 

ABELG 

SETSMG. MLTPLG. SEGMTG. 

GRAPHG 

LEGNDG 

NUMBRG, ERRZZ 

ME TAZZ .ERRZZ .TEXTG 

BUT  TNG, NUMBRG, LABLEG,T ITLEG, 

LINESG 

METAZZ, ERRZZ 

DATAG 

AREASG,C IRARG.RECOG 

MLTPLG 

SEGMTG, ERRZZ 

GRIDG.LABELG 

MODESG 

C225ZZ.CTABZZ.RSETMG 

NUMBRG 

LEGNDG, FMTSG, ERRZZ 

DE BUG, LA BEL G, OAT AG 

8JCTG 

ERRZZ 

SETUPG 

=OINTG 

METAZZ.ERRZZ 

CIRARG, GRAPHG 

PUSHG 

WAITSG.FBUTZZ 

8ECOG 

CHARZZ, LINESG, CIRARG, 

SE  TMG 

SEGMTG.UNSCZZ 

MOOESG 

iEGMTG 

METAZZ.ERRZZ 

RECOG, GRIDG.PARALG 

►ETFKG 

iETUPG 

SUBJEG.OBJCTG, ERRZZ 

GRAPHG 

+ETSMG 

ERRZZ 

GRI DG, TI TLEG 

NAPG 

PACKZZ 

TRAPZZ 

UBJEG 

XMOOZ.YMODZ, ERRZZ 

SETUPG, GRAPHG, LABELG 

EXT  G 

LEGNDG, ERRZZ 

ITLEG 

SETSMG, LEGNDG, ERRZZ 

GRAPHG 

A!  TSG 

UNSCZZ 

DEBUG.PUSHG 

tTIMEG 

iUFFZZ 

DATAG 

RECOG 

DATAG 

DATAG 


DEBUG. DATAG 

NUNBKG 
DEBUG. DATAG 

DATAG 


GRAPHG 


CHAkZZ 

character  recognizer 

CHARG, RLCOG 

CTAkiZZ 

TABLZZ 

EXI TG.MQDESG 

C225 LI 

TABLZZ, TRAPZZ 

EX  1 TG, MOOESG 

tRRZZ 

ALMOST  ALL 

FBUT  LI 

SCALZZ 

PUSHG 

GETCZZ 

CONVTG, FMTSG 

GNXYZZ 

BUTTNGtOATAG 

I FMZ  7 

FMTSG 

METAZZ 

UNSCZZ, ERRZZtREPKZZ, 

LEGNDG,L I NE SG, POI NTG, 

SCALZZ 

SEGMTG 

PACKZZ 

ERRZZ 

SNAPG 

PUTCZZ 

PZZ 

CONVTG, FMTSG 

REPKZZ 

METAZZ 

SCALZZ 

XMODZ, YMODZ.ERRZZ 

GPXYG.CBUTZZ.FBUTZZ, 

METAZZ 

TABLZZ 

C225ZZ  « \  RAPZZ 

TRAPZZ 

SNAPG, TABLZZ 

C225ZZ ,CTABZZ 

UNSCZZ 

GPXYG.GSTATG, METAZZ, RECOG, 
MAITSG 

xmooz 

XNOKMZ 

SCALZZ, SUBJ6G 

YMOOZ 

YNOkMZ 

SCALZZ, SUBJEG 
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Appendix  F 

JOB  CONTROL  LANGUAGE 


The  job  control  statements  need  several  special  addi¬ 
tions  to  run  graphic  jobs.  First,  the  user  must  concatenate 
the  graphic  library  with  his  normal  library.  If  he  Is 
executing  PL/I  or  assembly  language,  he  must  also  concatenate 
the  FORTRAN  library.  Two  INCLUDE  cards  are  required  to  en¬ 
sure  the  loading  of  resident  IGS  routines.  In  addition,  the 
user  must  provide  four  cards  at  the  end  of  his  decks  to  de¬ 
fine  the  graphic  data  sets.  The  job  control  statements 
needed  are  as  follows: 


//jobname  JOB  (appropriate  operands) 
//[stepname]  EXEC  (whatever  Is  being  executed) 
//LKED. SYSLIB  DO  DSNAHE-SYS1 . GRAPLIB ,DISP»SHR 
//  DO  DSNAME-SYS1.F0RTLIB.DISP-SHR 

//  00  DSNAME-SYS1.LINKLIB,DISP«SHR 

//LKED.SYSIN  DD  * 

INCLUDE  SYSLIB(TRAPZZ) 

INCLUDE  SYSLIB(TABLZZ) 

[object  modules] 

/* 

//GO. GRAPHIC  DD  UNIT-2230 

//GO. TABLET  DD  UNIT-TABLET 

//GO. IGSLINK  DD  DSNAHE-SYS1 . GRAPLIB  .DISP-SHR 

//GO . SC4060ZZ  DD  DSNAME-SCOOPS ,DISP-(HOD,PASS) 

//GO.SYSIN  DD  * 

[any  data  cards] 

/* 


The  two  following  special  procedures  have  been  added 
to  the  procedures  library  for  the  FORTRAN  programmer. 

1)  To  compile,  link  edit,  and  execute: 


//jobname  JOB  (appropriate 
//[stepname]  EXEC  XFORTCLG 
//FORT.SYSIN  DD  * 

[FORTRAN  source  decks] 

/* 

//LKED.SYSIN  DD  * 

[any  object  decks] 

/* 

//GO. SYSIN  DD  * 

[any  data  cards] 

/* 


operands) 


(Include  only  If  there 
are  object  decks. ) 

(Include  only  If  data 
are  read  In  from  the 
card  reader.) 


2)  To  link  edit  and  execute  previously  compiled  decks 


//jobname  JOB  (appropriate  operands) 
//[stepname]  EXEC  XFORTLG 


//LKED.SYSIN  DD  * 
[object  decks] 

/* 

//GO. SYSIN  DD  * 

[any  data  cards] 

/* 


(Include  only  If  data 
are  read  In  from  the 
card  reader.) 


Two  additional  procedures  assist  the  PL/I  programmer: 


3)  To  compile,  link  edit,  and  execute: 


//jobname  JOB  (appropriate  operands) 
//[stepname]  EXEC  GPL1FCLG 
//PL1L. SYSIN  DD  * 

[PL/I  source  statements] 


/* 

//LKED.SYSIN  DD  * 

[any  object  decks] 


(Include  only  If  there 
are  object  decks.) 


/* 

//GO. SYSIN  DD  * 

[any  data  cards] 

/* 


(Include  only  If  data 
are  read  In  from  the 
card  reader.) 


4)  To  link  edit  and  execute  previously  compiled  decks 


//jobname  JOB  (appropriate  operands) 
//[stepname]  EXEC  GPL1LG 


//LKED.SYSIN  DD  * 
[object  decks] 

/* 

//GO. SYSIN  DD  * 

[any  data  cards] 

/* 


(Include  only  If  data 
are  read  In  from  the 
card  reader.) 
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Appendix  6 
PL/1  COMPATIBILITY 


I6S  Is  written  primarily  to  be  called  from  FORTRAN; 
however.  It  may  be  called  from  PL/I  with  a  few  changes  In 
procedure  necessary  because  of  differences  between  the 
languages. 

IGS  must  be  Informed  with  the  following  mode  set  call 
that  It  will  be  called  by  PL/I: 

A  -  l.o, 

1-80; 

CALL  SETSMG(Z( 1 ) , I ,A) ; 

In  FORTRAN,  the  array  name  and  the  first  element  of 
the  array  are  equivalent;  In  PL/I,  they  differ.  Thus,  a 
PL/I  call  to  IGS  must  specifically  refer  to  the  first 
element  of  an  array  rather  than  the  array  name.  Literals 
cannot  be  used  In  PL/I  calls;  only  variables.  Thus  a  call 
that  would  be 

CALL  SETSMG(Z ,80 ,1 . ) 

In  a  FORTRAN  program  must  be 

A  ■  1.0; 

1-80; 

CALL  SETSMG(Z(1 ) ,1 , A ) ; 

In  a  PL/I  program.  PL/I  also  differs  from  FORTRAN  In  that 
double-subscripted  arrays  are  stored  In  row  order  rather 
than  column  order.  Double-subscripted  PL/I  arrays  must  be 
transposed  for  calls  to  IGS. 

The  PL/I  error  routine  that  handles  abnormal  termina¬ 
tions  will  Itself  abnormally  terminate  If  the  original 
termination  does  not  come  from  a  PL/I  subroutine.  Since 
IGS  Is  not  written  In  PL/I,  any  abnormal  terminations  with 
In  IGS  will  be  lost  by  the  subsequent  termination  of  the 


PL/I  error  routine.  The  Indicative  dump  will  show  only  the 
PL/I  error  routine  termination  with  no  Indication  that  the 
termination  originated  with  I6S.  It  is  hoped  that  there 
will  be  few  abnormal  terminations  within  IGS. 


*  — 1  •  .  . 
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Appendix  H 


IGS  MODE  SET  ARRAY 


This  section  describes  the  content!  of  the  mode  set  array. 

SETSMG  does  most  mode  setting,  but  RSETMG,  SUBJEG,  and  OBJCTG  can 
also  do  It. 

DEFAULT 

NO  FUNCTION  DESCRIPTION  VALUE  SET  BY 


1  INITIALIZATION 

2  MIN-X 

3  MIN-Y 

4  MAX-X 

5  MAX-Y 

6  MIN-X 

7  MIN-Y 

8  MAX-X 

9  MAX-V 

10  X-OFFSET 

11  Y-OFFSET 

12  X-SCALE 

13  Y-SCALE 

14  SCALE  FLAG 


15  RESERVEO 

16  RESERVED 

17  LAST  X 


18  LAST  Y 


19  X-NORM.  FACTOR 

20  Y-NORM.  FACTOR 

21  MAX-X 

22  MAX-Y 

23  X-L INEAR  FLAG 


24  Y-LINEAR  FLAG 


25  LOG! MIN-X ) 

26  LOGIMIN-Y) 

27  LOG! MAX-X) 

28  LOGIMAX-Y) 

29  VACANT 

30  RESERVEO 

31  RESERVEO 

32  VACANT 
•  VACANT 

39  VACANT 

40  NORMAL  MIDTH 


TELLS  WHETHER  ARRAY  IS  INITIALIZED. 
SUBJECT  SPACE. 

SUBJECT  SPACE. 

SUBJECT  SPACE. 

SUBJECT  SPACE. 

NORMALIZED  OBJECT  SPACE 
NORMALIZED  OBJECT  SPACE 
NORMALIZED  OBJECT  SPACE 
NORMALIZED  OBJECT  SPACE. 

SCALING  FACTORS  COMPUTED  BY  SYSTEM. 
SCALING  FACTORS  COMPUTED  BY  SYSTEM. 
SCALING  FACTORS  COMPUTED  BY  SYSTEM. 
SCALING  FACTORS  COMPUTED  BY  SYSTEM. 
TYPE  OF  SCALING  TO  DO. 

O.-REAL  SUBJECT  SPACE  UNITS. 

I  .-REAL  ABSOLUTE  RASTER  UNITS. 

2. -INTEGER  ABSOLUTE  RASTERS. 

3. -REAL  NORMALIZED  OBJECT 

SPACE. 


0. 

0. 

4095. 

4095. 

0. 

0. 

1. 

1. 

0. 

0. 

1. 

1. 

0. 


SYSTEM 

SUBJEG 

SUBJEG 

SUBJEG 

SUBJEG 

OBJCTG 

OBJCTG 

OBJCTG 

OBJCTG 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 


CURRENT  POINT  POSITION  IN  SUBJECT 
SPACE. 

CURRENT  POINT  POSITION  IN  SUBJECT 
SPACE. 

SCOPE  SIZE  IN  RASTERS/MAX  NORM.  4095. 

SCOPE  SIZE  IN  RASTERS/MAX  NORM.  4095, 

SCOPE  SIZE-IN  ABSOLUTE  RASTER  UNITS  4095. 
SCOPE  SIZE-IN  ABSOLUTE  RASTER  UNITS  4095. 
FLAG  FOR  LINEAR  SCALING  IN  X-AXIS.  0. 
0. -LINEAR 
1. -NONLINEAR 

FLAG  FOR  LINEAR  SCALING  IN  Y-AXIS.  0. 
0. -LINEAR 
l .-NONLINEAR 
LOG  OF  SUBJECT  SPACE. 

LOG  OF  SUBJECT  SPACE. 

LOG  OF  SUBJECT  SPACE. 

LOG  OF  SUBJECT  SPACE. 


SYSTEM 


SYSTEM 


SETSMG 

SETSMG 

SETSMG 

SYSTEM 

SETSMG 


SETSMG 


SYSTEM 

SYSTEM 

SYSTEM 

SYSTEM 


NORMAL  CHARACTER  WIDTH  IN 

NORMALIZED  OBJECT  SPACE. 


•01367SYSTEM 


_ i _ 


_ ,  _ _ 


4 
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41  NORMAL  HEIGHT 

42  CURRENT  WIDTH 

43  CURRENT  HEIGHT 

44  RESERVED 

4$  CHARACTER  SIZE 


46  KESERVEO 

47  KESERVEO 

48  VACANT 

49  LINE  SPACING 


SO  LINE  ORIENTATION 


51  KESERVEO 

52  RESERVED 

53  KESERVEO 

54  RESERVED 

55  RESERVEO 

56  VACANT 
•  VACANT 

59  VACANT 

60  LEFT  MARGIN 

61  KIGHT  MARGIN 

62  BOTTOM  MARGIN 

63  TOP  MARGIN 

64  CHARACTERS/LINE 

65  LINES/PAGE 

66  KESERVEO 

76  RESERVEO 

77  FORMAT  WIOTH 

78  FORMAT  DECIMALS 

79  FORMAT 


NORMAL  CHARACTER  HEIGHT  IN 

NORMALIZED  OBJECT  SPACE. 
CHARACTER  WIOTH  IN  SUBJECT  SPACE. 
CHARACTER  HEIGHT  IN  SUBJECT  SPACE. 

NO.  TIMES  NORMAL  SIZE  FOR  TYPING. 
1.0  56X80  RASTER  UNITS. 

1.5  84X120  RASTER  UNITS. 


NO.  TIMES  CURRENT  CHARACTER  HEIGHT 
TO  SPACE  LINE  UPON  EJECTION. 

♦  VALUE i  SPACE  LINE  UP. 

-  VALUE t  SPACE  LINE  OOWN. 

ANGLE  IN  DEGREES  AT  WHICH  A  LINE  OF 
CHARACTERS  IS  TO  BE  01SPLAYED.  0. 
IS  HORIZONTAL*  TO  THE  RIGHT. 

COUNTER  CLOCKWISE  ANGLES  ARE 
POSITIVE. 

0.  AND  ♦-90.  ARE  ALLOWED  FOR  THE 
2250. 


•01953SYSTEM 

56.  SETSMG 
80.  SETSMG 

1.  SETSMG 


-1.  SETSMG 


0.  SETSMG 


80  PL/ I  FLAG 


81  CHARACTER  AOORESS 

82  TYPE  OF  ARC 


83  KCUNONESS  OF  ARC 

84  PLOT  CHARACTER 


MARGIN  IN  SUBJECT  SPACE. 
MARGIN  IN  SUBJECT  SPACE. 
MARGIN  IN  SUBJECT  SPACE. 
MARGIN  IN  SUBJECT  SPACE. 
NO.  CHARACTERS  PER  LINE. 
NO.  LINES  PER  PAGE. 


FORMAT  WI OTH-USEO  BY  NUMORG. 

FORMAT  DECIMAL-USEO  BY  NUMBRG. 
FORMAT-USED  BY  NUMBRG 

1.  -  I  FORMAT 

2.  -  F  FORMAT 

3.  -  E  FORMAT 

4.  -  A  FORMAT 
PL/I  CALLS. 

O.-NO 

l.-YES 

N*TH  CHARACTER  OF  A  STRING  TO  BEGIN 
AOORESSING  WITH. 

METHOO  0  USE  IN  DRAWING  AN  ARC. 
O.-LINES 
1. -POINTS 

OEGREES  BETWEEN  TWO  AOJACENT  POINTS 
OF  AN  ARC. 

CHARACTER  TO  USE  FOR  PLOTTING. 

I  LEFT- JUST IF  IE 01 


0.  SETSMG 
4095.  SETSMG 
0.  SETSMG 
4095.  SETSMG 
74.  SYSTEM 
52.  SYSTEM 


SETSMG 

SETSMG 

SETSMG 


SETSMG 


SETSMG 

SETSMG 


5.  SETSMi 
POINT  SETSMG 
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86  VACANT 

87  BLOCK 

88  PEN  UP  OELAV 

89  OX-OATAG 

90  OV-OATAG 

91  AKRAY-OATAG 


92  PROTECTION  FLAG 


93  SIZE-OATAG 

94  ARRAY-BUTTNG 


95  BUTTON  SIZE 

96  DX-BUTTNG 

97  OY-BUTTNG 

98  DOX-AREASG 


AOORESS  OF  RESIDENT  BLOCK. 

PEN  UP  OELAY  IN  SECONDS. 

OX  FOR  SUBROUTINE  DAT AG. 

OY  FOR  SUBROUTINE  OAT AG. 

ARRAY  FLAG  FOR  SUBROUTINE  OATAG. 
O.-NO  ARRAY 
l.-X*Y  ARE  ARRAYS 

PROTECTION  FLAG  FOR  GRAPHIC  OUTPUT. 
O.-PROTECTED 
I. -NOT  PROTECTED 
CHARACTERS  PER  LABEL  FDR  OATAG. 
ARRAY  FLAG  FOR  SUBROUTINE  BUTTNG. 
O.-NO  ARRAY 
l.-XtY  ARE  ARRAYS 
NO.  CHARACTERS/BUTTON. 

OX  FOR  SUBROUTINE  BUTTNG. 

OY  FOR  SUBROUTINE  BUTTNG. 

FLAG  FOR  ORAWING  A  BOX  FDR  AREASG. 
O.-NO  BOX 
l.-ORAW  BOX 


99  RESERVEO 
100  AXES  FLAG 


101 

VACANT 

102 

X  TICK 

MARKS 

103 

Y  TICK 

MARKS 

104 

X-AXIS 

LABEL 

105 

Y-AXIS 

LABEL 

106  LEFT  MARGIN 

107  RIGHT  MARGIN 
10B  BOTTOM  MARGIN 

109  TOP  MARGIN 

110  SQUARE  GRIO 

111  X-AXIS  DENSITY 

112  Y-AXIS  DENSITY 


EMPHASIS  OF  MAJOR  AXES. 
0.-EMPHAS1ZE  BOTH 

1.  -EMPHASIZE  X*0  ONLY 

2.  -EMPHASIZE  Y*0  ONLY 

3. -N0  EMPHASIS 


LENGTH  OF  X-AXIS  TICK  MARK  IN 
NORMALIZED  OBJECT  SPACE. 

LENGTH  OF  Y-AXIS  TICK  MARK  IN 
NORMALIZED  OBJECT  SPACE. 

NO.  TIMES  CHARACTER  HEIGHT  TO 
POSITION  X-AXIS  LABEL. 

♦  LABEL  ABOVE  GRID 

-  LABEL  BELOW  GRIU 
0.  LABEL  AT  Y«0 

NO.  TIMES  CHARACTER  WIDTH  TO 
POSITION  Y-AXIS  LABEL. 

♦  LABEL  RIGHT  SIDE  OF  GRIO 

-  LABEL  LEFT  SIDE  OF  GRID 
0.  LABEL  AT  X«0 

RELATIVE  GRIO  MARGIN  IN  NORMALIZED 
OBJECT  SPACE. 

RELATIVE  GRIO  MARGIN  IN  NORMALIZED 
OBJECT  SPACE. 

RELATIVE  GRIO  MARGIN  IN  NORMALIZED 
OBJECT  SPACE. 

RELATIVE  GRIO  MARGIN  IN  NORMALIZED 
OBJECT  SPACE. 

FORCE  VALUES  FOR  A  SQUARE  GRID  TO 
BE  CALCULATED. 

O.-NOT  FORCED  TO  BE  SQUARE. 
l.-MUST  BE  SQUARE. 

MIN  DISTANCE  BETWEEN  X-AXIS  GRID 
LINES  IN  NORMALIZED  OBJECT 
SPACE. 

MIN  DISTANCE  BETWEEN  Y-AXIS  GRIO 
LINES  IN  NORMALIZED  OBJECT 


SYSTEM 
0.5  SETSMG 
0.  SETSMG 
BO.  SETSMG 
0.  SETSMG 


0.  SETSMG 


8.  SETSMG 
0.  SETSMG 


8.  SETSMG 
0.  SETSMG 
-80.  SETSMG 
0.  SETSMG 


0.  SETSMG 


0.  SETSMG 
0.  SETSMG 
-1.  SETSMG 

-1.  SETSMG 

0.15  SETSMG 
0.15  SETSMG 
0.15  SETSMG 
0.15  SETSMG 
0.  SETSMG 

•01009SETSMG 


•01660SETSMG 


-130- 


SPACE. 

113  MIN  X-T  I  TIE  NORMALIZED  OBJECT  SPACE  UNAVAILABLE  -  LABELC 

FOR  TITLES. 

11*.  MIN  V-TITLE  NORMALIZED  OBJECT  SPACE  UNAVAILABLE  -  LABELC 

FOR  TITLES. 

115  MAX  X-TITLE  NORMALIZED  OBJECT  SPACE  UNAVAILABLE  -  LABELC 

FOR  TITLES. 

116  MAX  Y-TITLE  NORMALIZED  OBJECT  SPACE  UNAVAILABLE  -  LABELC 

FOR  TITLES. 

11/  VACANT 
.  VACANT 

130  VACANT 

131  RESERVED 
.  RESERVED 

150  RESERVEO 

151  VACANT 
•  VACANT 

?00  VACANT 
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Appendix  I 
HARDCOPY  REQUESTS 

A  user  f<ay  request  hardcopy  through  subroutine  calls 
within  his  program,  or  through  special  function  keys  at  the 
2250  console.  Subroutine  calls  are  convenient  for  large  or 
specific  requests.  The  subroutine  calls  for  obtaining  hard¬ 
copy  are  described  In  the  write-up  of  SNAPG  (p.  104).  The 
function  keys  are  more  expedient  for  small  requests,  or  If 
the  user  either  does  not  want  to  reprogram  or  does  not  know 
In  advance  that  he  wants  hardcopy.  Hardcopy  through  the 
function  keys  Is  always  available  to  any  2250  IGS  program-- 
at  no  cost  In  core  storage  If  unused.  The  two  methods  can¬ 
not  be  mixed.  For  either  the  subroutine-call  or  function-key 
method,  open  the  hardcopy  file,  optionally  reset  for  8  1/2 
x  11  hardcopy  (11  x  14  Is  the  default  hardcopy  size).  Initiate 
hardcopy  of  the  2250  displays,  and  finally  close  the  file. 

The  function-key  method  works  as  follows: 

1)  Place  a  function-key  overlay  on  the  keys  with 
notch  7  Intact.  This  overlay  preempts  keys  30,  31, 
and  32  for  hardcopy.  The  audio  alarm  will  sound 
each  time  one  of  these  keys  Is  hit  to  Inform  the 
user  that  his  request  Is  recognized.  The  overlay 
may  be  removed  at  any  time  to  allow  normal  use  of 
keys  30,  31 ,  and  32. 

2)  Strike  function  key  32.  The  first  strike  loads 
the  hardcopy  subroutine,  Initializes  the  hardcopy 
file,  lights  up  keys  30,  31,  and  32  as  a  reminder 
that  the  ha**dcopy  file  Is  active,  and  makes  a 
copy  of  the  current  2250  display.  Each  successive 
strike  makes  another  copy  of  the  2250  display. 
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3)  Key  30  controls  the  hardcopy  size.  Each  strike 
switches  the  size.  Since  the  default  hardcopy 
size  Is  11  x  14,  the  first  strike  changes  the 
size  to  8  1/2  x  ii.  The  second  will  switch  the 
mode  back  to  11  x  14,  etc.  The  user  may  hit 
key  30  before  key  32  If  he  wants  all  8  1/2  x  n 
output.  The  light  In  key  30  will  be  on  for 

11  x  14  hardcopy  and  off  for  8  1/2  x  n. 

4)  Strike  key  31  to  close  the  hardcopy  file  when 
finished.  This  deletes  the  hardcopy  subroutine, 
prints  an  online  message  on  the  360/40  log  Indi¬ 
cating  that  hardcopy  has  been  requested,  and  re¬ 
stores  the  function  key  lights  to  their  original 
status . 

5)  Repeat  steps  1  through  4  as  often  as  desired  during 
a  job. 


-133- 


Appendix  J 
SYSTEM  SUBROUTINES 


IGS  uses  the  following  subroutines.  The  user  Is 
normally  not  concerned  with  them;  they  are  Included  only 
for  completeness  of  documentation. 


1) 

BUFFZZ 

Changes  the  size  of  the  Internal 

buffer  used  to  write  to  the  2250. 

2) 

CBUTZZ 

Creates  a  control  entry  and  files 
It  In  a  list. 

3) 

CHARZZ 

Recognizes  handwritten  characters 

4) 

CTABZZ 

Turns  the  RAND  Tablet  on  and  off. 

5) 

C225ZZ 

Turns  the  IBM  2250  on  and  off. 

6) 

ERRZZ 

General  error  subroutine. 

7) 

FBUTZZ 

Oetects  a  button  touch. 

8) 

GETCZZ/PUTCZZ 

Pack  or  unpack  bytes. 

9) 

GNXYZZ 

Computes  the  next  x,y  location 

of  a  button. 

10) 

IFMZZ 

Converts  an  Integer  number  to  a 
character  string. 

ID 

METAZZ 

Writes  graphic  commands. 

12) 

PACKZZ 

Packs  and  outputs  2250  hardcopy. 

13) 

PZZ 

Prints  the  mode  set  array. 

14) 

REPKZZ 

Repacks  the  2250  buffer. 

15) 

SCALZZ 

Converts  user  coordinates  to 

rasters . 

16) 

TABLZZ 

Resident  data  section. 

17) 

trapz: 

Processes  2250  Input  traps. 

18) 

UNSCZZ 

Converts  rasters  to  user 

coordinates. 
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BUFFZZ;  Changes  the  Internal  Buffer  Size 


PURPOSE 

Alters  the  size  of  the  Internal  I6S  buffer  used  In 
writing  to  the  2250.  A  large  buffer  will  write  displays 
faster,  but  requires  more  core  storage.  The  default 
buffer  size  Is  600  bytes. 

USAGE 

Standard  Calls 

CALL  BUFFZZ(I.Hfl) 

1)  Z  Is  the  mode  set  array. 

2)  NO  Is  the  number  of  bytes  at  which  to  set  the 
buffer  size.  The  default  value  of  NO  Is  600 
bytes . 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language.  BUFFZZ  can  be 
called  only  after  the  2250  Is  Initialized. 


- 1  35- 


CBUTZZ:  Creates,  Then  Files,  a  Control  Entry 


PURPOSE 

Called  by  BUTTNG  and  AREASG  to  create  and  file  control 
areas  into  a  list.  PUSHG  searches  this  list  to  determine 
if  a  control  area  was  touched. 

USAGE 


Standard  Calls 

CALL  CBUTZZ(I.XL.YL.XR.YR.ISEO) 

1)  Z  is  the  mode  set  array. 

2)  XL.YL  is  the  lower  left  point  of  the  control 
area . 

3)  XR,YR  is  the  upper  right  point  of  the  control 
area. 

4)  ISEQ  Is  the  sequence  number  to  assign  to  the 
control  area. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language. 
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PURPOSE 

Recognizes  characters  handwritten  on  the  RAND  Tablet. 
The  subroutine  returns  after  the  pen  has  been  lifted  from 
the  Tablet.  The  user  may  force  a  return  by  hitting  the 
END  key  or  a  function  key,  or  by  using  the  light  pen. 


USAGE 

Standard  Calls 

CALL  CHARZZ(i,TDATA,l,CHAR) 

1)  Z  Is  the  mode  set  array. 

2)  IDATA  will  contain  the  following  data  on  return: 

tlDATA(l)  *  x  location  of  pen  down  (In  Integer 
rasters) . 

+ 1  DAT  A  ( 2 )  *  y  location  of  pen  down  (In  Integer 
rasters) . 

tIDATA(3)  ■  x  location  of  pen  up  (In  Integer 
rasters) . 

tIDATA(4)  «  y  location  of  pen  up  (In  Integer 
rasters) 

IDATA(5)  *  x  location  of  centroid  (In  Integer 
rasters) . 

IDATA(6)  ■  y  location  of  centroid  (In  Integer 
rasters) . 

I  DAT  A ( 7 )  «  DX  of  character  (In  Integer  rasters). 

DX  *  4096  (Integer)  If  the  return 
was  caused  by  the  END  key,  function 
keys,  or  light  pen. 

^Applies  only  to  the  last  stroke. 


I  DATA ( 8 )  *  DY  0f  character  (In  Integer  rasters). 

I  DATA ( 9 )  =  Character  ( left- justl fled)  or  type 
of  geometric  figure  (Integer).  A 
question  mark  (?)  Is  returned  If  the 
character  Is  unrecognizable. 

Characters : 

A  through  Z 
0  through  9 

*  '  +  '  *  /  '  t  f  )  '  >  <  E  N  blank. 
Geometric  figure: 

0- 1 1 ne 

1- rectangle 

2- clrcle 

3- trlangle 

4- ell  1 pse 

5- dl amond 

6- trapezold 

I  DATA  (10)  «*  Number  of  corners. 

I  DATA (11)  *  Type  of  return. 


=  0,  no  character  pending. 

>  0,  a  character  Is  pending. 
I  specifies  the  Ink  size  to  use. 

If  I  ■  192,  Ink  size  ■  2  rasters. 

196,  Ink  size  ■  4  rasters. 

198,  Ink  size  ■  6  rasters. 

•  200,  Ink  size  -  8  rasters. 

CHAR  contains  the  character  recognized  upon 
return . 
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Mod 1 f Icatlons 

To  change  the  pen-up  delay  time  (time  required  for 
IGS  to  decide  whether  two  pen  strokes  constitute  a  single 
character) , 

CALL  SETSMG( Z .88  .TIME) 

TIME  specifies  the  time  In  seconds  to  allow  the 
user  to  delay  In  writing  multi-stroke  characters. 
TIME  s  0.5  Is  the  default  value. 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language.  References  3  and 
4  completely  describe  the  character  recognition  routines. 
CHARZZ  depends  on  the  RAND  Tablet. 


o 


CTABZZ :  Turns  the  RAND  Tablet  On  and  Off 

PURPOSE 

Turns  the  RAND  Tablet  on  or  off. 

USAGE 

Standard  Calls 

CALL  CTABZZ(Z.I) 

1)  Z  Is  the  mode  set  array. 

2)  I  specifies  the  action  to  be  taken. 

If  I  ■  0,  start  the  Tablet  up  Initially. 

■  1,  close  the  Tablet  down  permanently. 

■  2,  start  the  Tablet. 

■  3,  stop  the  Tablet. 

MISCELLANEOUS  INFORMATION 

Written  In  OS/360  assembly  language.  CTABZZ  depends 
on  the  RAND  Tablet. 
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C225ZZ :  Turns  the  IBM  2250  On  and  Off 

PURPOSE 

Turns  the  2250  on  or  off. 

USAGE 

Standard  Calls 

CALL  C225ZZ(I,1) 

1)  Z  Is  the  mode  set  array. 

2)  I  specifies  the  action  to  be  taken. 

If  I  ■  0,  turn  the  2250  on. 

■  1 ,  turn  the  2250  off. 

«  2,  release  all  core  used  for  accounting. 

■  3,  Initialize  core  for  accounting. 

MISCELLANEOUS  INFORMATION 

Written  In  OS/360  assembly  language. 


ERRZZ:  General  Error  Subroutine 


PURPOSE 

IGS  subroutines  call  ERRZZ  whenever  they  detect  a 
programmer  error.  ERRZZ  prints  out  a  message  Indicating 
the  type  of  error.  Appendix  G  (p.  125)  lists  the  possible 
error  messages. 

USAGE 


Standard  Calls 

CALL  ERRZZ(7.N0.VALUE1 

1)  Z  Is  the  mode  set  array. 

2)  NO  Is  the-  error  Identification  number. 

3)  VALUE  Is  any  variable  associated  with  the  error. 

MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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FBUTZZ:  Detects  a  Button  Touch 


PURPOSE 

PUSHG  calls  FBUTZZ  to  determine  whether  a  button 
contains  an  x,y  coordinate.  If  so,  FBUTZZ  displays  an 
asterisk  beside  the  button,  and  returns  the  button's 
sequence  number. 

USAGE 


Standard  Calls 

CALL  FBUTZZ (Z.X.Y.lSElJ) 

1)  Z  Is  the  mode  set  array. 

2)  X , Y  are  x,y  coordinates. 

3)  I SEQ  contains  the  sequence  number  of  the  touched 
button,  or  zero  If  no  button  was  touched. 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language. 


GETCZZ  and  PUTCZZ:  Pack  or  Unpack  Bytes 


PURPOSE 

Pack  and  unpack  bytes. 


USAGE 


Standard  Calls 

1)  To  unpack  a  byte, 

CALL  GETCZZfZ. BYTE. NTH. STRING) 

a)  Z  Is  the  mode  set  array. 

b)  BYTE  contains  the  byte  on  return.  The 
byte  will  be  right- justified  with  leading 
positions  set  to  zero. 

c)  NTH  specifies  the  byte  to  unpack  from  STRING. 
NTH  *  1  Indicates  the  first  byte  In  STRING. 

d)  STRING  Is  a  variable  or  array  containing  the 
bytes . 

2)  To  pack  a  byte, 

CALL  PUTCZZ(Z. BYTE. NTH. STRING) 

a)  Z  Is  the  mode  set  array. 

b)  BYTE  contains  the  rl ght- justl f 1 ed  byte  to 
pack.  The  left  portion  of  BYTE  may  contain 
anythl ng . 

c)  NTH  specifies  the  position  In  STRING  at  which 
to  store  the  byte.  NTH  =  1  Indicates  that  the 
byte  Is  to  be  stored  In  the  first  position. 

d)  STRING  Is  a  variable  or  array  containing  the 
bytes . 

MISCELLANEOUS  INFORMATION 


Written  In  OS/ 360  assembly  language. 


icr 
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GNXYZZ:  Computes  the  Next  X,Y  Location  of  a  Button 
PURPOSE 

Computes  where  on  the  2250  screen  to  position  the 
next  of  a  series  of  buttons. 

USAGE 

Standard  Calls 

CALL  GNXYZZ(Z.I.Y.CHARP.CHAR.DX.DY) 

1)  Z  is  the  mode  set  array. 

2)  X , Y  is  the  x,y  location  of  the  previous  button 
on  entry.  On  returnt  It  Is  set  to  the  x,y 
location  of  the  next  button. 

3)  CHARP  Is  the  number  of  characters  In  the  previous 
button . 

4)  CHAR  Is  the  number  of  characters  In  the  next 
button . 

5)  DX , DY  Is  the  relative  distance  between  the 
buttons . 

MISCELLANEOUS  INFORMATION 

Written  In  FORTRAN  IV. 
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IFMZZ:  Converts  an  Integer  Number  into  a  Character  String 
PURPOSE 

Converts  an  Integer  number  Into  a  character  string. 

USAGE 


Standard  Calls 

CALL  I FMZZ( Z .NUMB .OUT . IW . I  START .NFLG .TER!) 

1)  Z  Is  the  mode  set  array. 

2)  NUMB  is  the  Integer  number  to  convert  or  the 
fill  character  If  NFLG  «  -1. 

3)  OUT  contains  the  character  string  on  return. 

OUT  must  be  large  enough  to  contain  IW  characters. 

4)  IW  specifies  the  total  number  of  character  posi¬ 
tions  available  for  output. 

5)  ISTART  designates  the  leftmost  character  position 
In  the  output  string  (ISTART  >  1). 

6)  NFLG  stipulates  the  specific  function  to  perform. 

If  NFLG  ■  -1,  fill  the  output  string  with  the 
rightmost  character  In  NUMB. 

■  0,  convert  the  number  and  fill 

positions  to  the  left  of  the 
high-order  digit  with  blanks. 

■  1,  convert  the  number  and  fill 

high-order  positions  with  zeros. 

7)  IERR  Is  an  error  return  flag  set  by  the  routine. 

If  IERR  ■  0,  the  function  was  performed 

satl sfactorl ly . 

■  1,  the  field  width  (IW)  was  too 

small  for  the  number  to  fit,  so 
the  output  area  will  be  filled 
with  asterisks. 


-146- 


MISCELLANEOUS 
Wri tten 


INFORMATION 

n  OS/360  assembly  language. 
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METAZZ;  Writes  Graphic  Commands 

PURPOSE 

Scales  x,y  coordinates,  formats  the  data  Into  2250 
buffer  commands,  and  packs,  buffers,  and  transmits  the  data 
to  the  2250  buffer. 

USACE 

Standard  Calls 

1)  To  plot  a  specific  character, 

CALL  METAZZfZ.l .N.X.Y.l .CHARI 

a)  Z  is  the  mode  set  array. 

b)  N  is  the  number  of  points  (N  >  1). 

c)  X , Y  are  arrays  of  N  x,y  coordinate  pairs 
to  plot. 

d)  CHAR  contains  the  left-justified  plotting 
character  to  use  for  plotting.  If  CHAR  *  0.0, 
normal-sized  plotting  points  are  used. 

2)  To  type  characters, 

CALL  METAZZ(?.5.1 .X.Y.N. CHARI 

a)  Z  is  the  mode  set  array. 

b)  X,Y  Is  the  location  of  the  center  of  the 
first  character. 

c)  N  Is  the  number  of  characters  to  type 

(Nil). 

d)  CHAR  Is  the  name  of  a  variable  or  an  array 
that  contains  the  characters  to  type. 

To  draw  Joined  vectors, 

CALL  METAZZ(7,8,U,I,I,£,JL) 


3) 
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a)  Z  Is  the  mode  set  array. 

b)  N  Is  the  number  of  x,y  coordinates.  N  -  1 
joined  line  segments  will  be  drawn. 

c)  X,Y  are  arrays  of  x,y  coordinates.  A  line 
Is  drawn  between  each  point  In  the  arrays. 

4)  To  draw  line  segments, 

CALL  METAZZ(Z,9,N,X1  ,Y1 ,X2,Y2) 

a)  Z  Is  the  mode  set  array. 

b)  N  Is  the  number  of  line  segments  to  draw. 
If  N  >  1,  then  XI  ,Y1  and  X2,Y2  must  be 
arrays  of  points. 

c)  XI, Y1  are  arrays  containing  the  starting 
points  of  each  line. 

d)  X2,Y2  are  arrays  containing  the  terminal 
points  of  each  line. 

Modifications 

All  mode  sets  are  In  effect  when  METAZZ  Is  called. 

MISCELLANEOUS  INFORMATION 

Written  In  0S/360  assembly  language. 


-1 49- 


PACKZZ:  Packs  Bytes  Into  the  Output  Buffer 


PURPOSE 

Packs  bytes  Into  a  buffer,  then  writes  the  filled  buffer 
onto  an  output  device.  PACKZZ  Is  used  by  SNAPG  to  produce 
2250  hardcopy  on  the  S-C  4060. 

USAGE 


Standard  Calls 

CALL  PACKZZ(?.I . I  DATA.  NTH  .NOl 

1)  Z  Is  the  mode  set  array. 

2)  I  tells  whether  IDATA  contains  characters. 

If  I  ■  0,  no  characters. 

*  3,  IDATA  contains  characters.  This 
distinction  allows  character  con¬ 
version  within  PACKZZ. 

3)  IDATA  Is  a  word  or  an  array  containing  the 
byte  string  to  pack  Into  the  buffer. 

4)  NTH  specifies  at  which  byte  In  the  string  to 
begin  (NTH  >  1). 

5)  NO  specifies  the  number  of  bytes  of  data  to 
pack. 

Special  Calls 

1)  To  open  the  output  buffer, 

CALL  PACKZZfZ.J. ,0,0,0) 

2)  To  close  the  buffer, 

CALL  PACKZZ (I, ^,£,0,0) 

3)  To  flush  the  output  buffer  without  closing  It, 
CALL  PACKZZ(Z,2,0,0,0) 


MISCELLANEOUS  INFORMATION 


Written  In  OS/ 360  assembly  language. 
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PZZ:  Prints  Out  the  Mode  Set  Array 

PURPOSE 

Prints  the  contents  of  the  mode  set  array. 
Is  PZZ's  primary  function. 

USAGE 

Standard  Calls 
CALL  PZZ(Z) 

Z  Is  the  mode  set  array. 

MISCELLANEOUS  INFORMATION 


Debugging 


Written  In  FORTRAN  IV. 
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REPKZZ:  Repacks  the  2250  Buffer 

PURPOSE 

Ajtomatl cal  1y  repacks  the  full  2250  output  buffer. 
All  deleted  displays  are  overlaid  at  this  time. 

USAGE 

Standard  Calls 

CALL  REPKZZ(I) 

Z  Is  the  mode  set  array. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language. 
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SCALZZ:  Converts  User  Coordinates  to  Rasters 


PURPOSE 

Scales  user  coordinates  and  converts  them  to  Integer 
rasters . 

USAGE 


Standard  Calls 


CALL 

scalzz(z,x,y,Tx,T7) 

1) 

Z  Is  the  mode  set  array. 

2) 

X , Y  are  the  x,y  coordinates  to  scale. 

3) 

IX, IY  contain  the  rasters  on  return. 

Special  Calls 

Two 

provided 

10.  The 

do  other 

follows : 

functions  do  the  nonlinear  scaling.  The  functions 
In  the  system  do  a  log  transformation  to  the  base 
user  may  substitute  any  functions  of  his  own  to 

transformations.  The  form  of  the  functions  Is  as 

X 

Y 

-  XMODZ(X) 

-  YMODZ(Y) 

Modi  f 1 catl ons 

Use 

mode  sets  to  modify  SCALZZ  as  follows: 

1) 

To  specify  the  scaling  to  be  done. 

CALL  SETSMG(Z. 14. SCALE) 


SCALE  specifies  the  scaling  to  be  done. 
SCALE  ■  0.0  Is  the  default  value. 

If  SCALE  »  0.0,  scale  real  subject  space 

coordinates . 
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=  1.0,  scale  real  absolute  raster 
units. 

=  2.0,  scale  integer  absolute  raster 
units. 

=  3.0,  scale  real  normalized  object 
space . 

2)  To  specify  nonlinear  scaling  In  the  x-axIs, 

CALL  SETSMG (Z,23,1_J 

To  reset  the  mode  to  Its  default  value  for  linear 
seal  1 ng , 

CALL  SETSMG(I,23,Oj 

3)  To  specify  nonlinear  scaling  in  the  y-axls, 

CALL  SETSMG(Z,24,1_J 

To  reset  the  mode  to  Its  default  value  for  linear 
seal  1 ng , 

CALL  SETSMG(Z,24,g_J 
MISCELLANEOUS  INFORMATION 


Written  In  FORTRAN  IV. 
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TABLZZ:  Resident  Data  Section 

PURPOSE 

Though  actually  a  control  section,  TABLZZ  contains  all 
resident  tables,  IOBs,  CCWs ,  DCBs,  DECBs,  etc.,  needed  by 
I G S .  It  is  the  only  portion  of  the  graphics  system  that 

must  remain  in  core. 

MISCELLANEOUS  INFORMATION 

Written  in  0S/360  assembly  language.  DCBZZ  is  an 
entry  to  the  2250  DCB. 
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TRAPZZ :  Processes  2250  Input  Traps 

PURPOSE 

Entered  asynchronously  whenever  a  light  pen,  keyboard, 
function  key,  or  end  order  sequence  Interrupt  occurs. 

USAGE 

Standard  Calls 

0S/360  gives  control  to  TRAPZZ. 

MISCELLANEOUS  INFORMATION 

Written  In  OS/360  assembly  language. 
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UNSCZZ:  Converts  Rasters  to  User  Coordinates 

PURPOSE 

Converts  rasters  Into  user  coordinates. 

USAGE 

Standard  Calls 

CALL  UNSCZZ(I ,I,T,iX,lY) 

1)  Z  Is  the  mode  set  array. 

2)  X , Y  contain  the  user  coordinates  on  return. 

3)  IX, IY  are  the  raster  coordinates. 

Modi f Icatlons 

Use  mode  sets  to  modify  UNSCZZ  as  follows:  To  specify 
the  scaling  to  be  done, 

CALL  SETSMGfZ. 14. SCALE) 

SCALE  specifies  the  scaling  to  be  done.  SCALE  s  0.0 
Is  the  default  value. 

If  SCALE  =  0.0,  scale  real  subject  space  coordinates. 
=  1.0,  scale  real  absolute  raster  units. 

=  2.0,  scale  Integer  absolute  raster  units. 

=  3.0,  scale  real  normalized  object  space. 

MISCELLANEOUS  INFORMATION 
Written  in  FORTRAN  IV. 
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10.  ABSTRACT 

1  '  N  J 

>A  programmer's  manual  for  IGS,  the  Rand 
interactive  computer  graphic  software,  as 
implemented  on  the  IBM  2250  graphic  hard¬ 
ware.  Programmed  in  FORTRAN  IV  with  spe¬ 
cial  facility  for  addressing  a  single 
character  directly,  IGS  is  machine-inde¬ 
pendent'  and  callable  from  many  languages 
acceptable  to  an  IBM  360,  including  PL/I. 

The  360  can  only  start  or  stop  the  2250 
and  read  or  write  into  it.  The  user  con¬ 
trols  the  system  through  the  2250's  on¬ 
line  typewriter,  light  pen,  or  function 
keys;  or  by  writing  or  drawing  on  the 

Rand  Tablet,  if  included;  or  by  touching 
user-defined  sensitive  areas  with  the 
light  pen  or  Tablet  stylus.  Only  param¬ 
eters  of  interest  need  to  be  specified; 

IGS  automatically  provides  default  values 
for  character  size,  spacing,  line  spacing, 
and  other  format  details.  IGS  accepts 
user  coordinates  and  translates  them  into 
raster  units.  It  automatically  rescales 
graphical  data  to  fit  available  space, 
converts  graphical  to  numerical  data, 
etc.  One  subroutine  draws  an  entire 
graph  to  fit  given  data,  with  a  single 
call.  The ‘RM" includes  an  alphabetical 
index,  a  cross-reference  index  of  sub¬ 
routine  calls,  and  a  listing  by  type,  as 
well  as  a  detailed  description  of  each.  )— - * 
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